Arsip: Menyembunyikan file dalam gambar dgn delphi


by mas_kofa in Serba Neka more 15 years ago 3377
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.

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com