Thanks @Mas Kofa atas reviewnya pada artikel saya yang gak ada hubungannya sama sekali dengan Delphi. @Mas Kofa sudah membuatnya lebih "Delphi".
Mungkin ada yang tanya, "Tapi kan masih juga menjalankannya lewat Batch File"?
Mungkin ada yang tanya, "Tapi kan masih juga menjalankannya lewat Batch File"?
Kesempatan ini saya coba menulis beberapa baris singkat tentang "Menyembunyikan file dalam gambar dgn delphi" yang benar-benar Delphi:
Langsung saja ke kodenya:
Selamat mencoba
Langsung saja ke kodenya:
procedure HideInPic(const hostFile, FileToHide: String);
var
f1, f2: HFile;
p:Pointer;
sz:Integer;
begin
//Buka file target penyembunyian (host) dan ile yang akan disembunyikan
f1:=FileOpen(hostFile, fmOPenReadWrite);
if f1=INVALID_HANDLE_VALUE then
Exit;
f2:=FileOPen(fileToHide, fmRead);
if f2 = INVALID_HANDLE_VALUE then
begin
FileClose(f1);
exit;
End;
//Alokasikan memori seukuran file yang akan disembunyikan
sz:=GetFileSize(f2, nil);
Getmem(p, sz);
// baca isi file yang akan disembunyikan ke buffer memori
sz:=FileRead(f2, p^, sz);
fileClose(f2);
//tutup file yang sudah dibaca, lanjut dengan
//menulis buffer memori ke akhir file host
FileSeek(f1, 0, soFromEnd {atau FILE_END});
FileWrite(f1, p^, sz);
//tutup file host dan bebaskan memori yang terpakai
FileClose(f1);
Freemem(p, sz);
end;
Selamat mencoba
Random Articles
- Kopi Darat v2 Delphi Indonesia (delphi-id.org)
- Folder SIZE
- Safely Remove USB Mass Storage Device (Unplug/Eject USB)
- Tips menggunakan PopUp Menu di Delphi
- Tulis/Baca "string" di file .INI
- Mengetahui semua printer yg ter-install
- Aplikasi Modern Dengan Bahasa Pascal
- Bikin ListBox Bisa NgeDrag And Drop Seperti WinAmp
- Lazarus 2.2.0 Release Candidate 1
- protect/un-protect data FB/IB dari "gangguan" SYSDBA
AI Forward

๐ We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago