Menaggapi artikel yang dikirim oleh rekan @reev dgn referensi http://delphi-id.org/dpr/Article175.pas, dengan ini saya mencoba untuk membuat (mengembangkan) program Menyembunyikan file dalam gambar dgn delphi.......
betolak dari materi yang diberikan oleh rekan @reev tsb...
Langkah-langkahnya saya bagi menjadi 4 langkah :
1. Pembuatan batch file
//make batch file;
l := TStringList.Create;
l.Add('copy /b %1+%2 adfd.tmp');
l.Add('del %1');
l.Add('ren adfd.tmp %3');
l.Add('del %2');
l.SaveToFile('c:\sembunyi.bat');
l.Free;
2. membuat temporary file
//preparing files
fn1 := ExtractFileName(LE1.Text);
fn2 := ExtractFileName(LE2.Text);
fn3 := ExtractFileName(LE3.Text);
pth := ExtractFilePath(LE3.Text);
copyfile(PChar(LE1.Text),PChar('c:' + fn1),false);
copyfile(PChar(LE2.Text),PChar('c:' + fn2),false);
copyfile(PChar(LE3.Text),PChar('c:' + fn3),false);
3. Melakukan proses dengan batch file yg telah dibuat
//processing.........with batch file
Param := PChar('"' + fn1 + '" "' + fn2 + '" "' + fn3 + '"');
ShellExecute(0,'Open','c:\sembunyi.bat',Param,'c:',0);
4. Menghapus sisa temporary files , penghapusan sebagian temporary files telah dilakukan oleh batch file
untuk source lengkap nya dpt anda download di Source Code
Kami tunggu partisipasi yg laen.
Langkah-langkahnya saya bagi menjadi 4 langkah :
1. Pembuatan batch file
//make batch file;
l := TStringList.Create;
l.Add('copy /b %1+%2 adfd.tmp');
l.Add('del %1');
l.Add('ren adfd.tmp %3');
l.Add('del %2');
l.SaveToFile('c:\sembunyi.bat');
l.Free;
2. membuat temporary file
//preparing files
fn1 := ExtractFileName(LE1.Text);
fn2 := ExtractFileName(LE2.Text);
fn3 := ExtractFileName(LE3.Text);
pth := ExtractFilePath(LE3.Text);
copyfile(PChar(LE1.Text),PChar('c:' + fn1),false);
copyfile(PChar(LE2.Text),PChar('c:' + fn2),false);
copyfile(PChar(LE3.Text),PChar('c:' + fn3),false);
3. Melakukan proses dengan batch file yg telah dibuat
//processing.........with batch file
Param := PChar('"' + fn1 + '" "' + fn2 + '" "' + fn3 + '"');
ShellExecute(0,'Open','c:\sembunyi.bat',Param,'c:',0);
4. Menghapus sisa temporary files , penghapusan sebagian temporary files telah dilakukan oleh batch file
untuk source lengkap nya dpt anda download di Source Code
Kami tunggu partisipasi yg laen.
Random Articles
- FolderCustomizer: Percantik & Protek Folder Anda
- Lazarus Release 2.0.10
- Drag Files Ke Form
- Membuat EditBox yang RataKanan
- Get Prosessor Info
- Daftar Account Free Hosting yang Di-Approve oleh ServerMERDEKA.Com
- Menampilkan Aplikasi Yang Berjalan (visible)
- Delphi + Java := .Net ?
- Menentukan Harga Proyek
- SayNumber
Last Articles
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago