Delphi制作能夠干凈地刪除自己的程序 (2000年8月24日) 

本站更新  分類:   作者:a  推薦:   閱讀次數:909  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

----我們經常遇到這樣的軟件，運行之后就消失的無影無蹤，
特別是一些 黑客的木馬工具。如果我們能掌握這個技術，即使
不做黑客工具，也可以在程序加密、軟件卸載等方面發揮作
用。那么他們是怎樣實現的呢？ 

----以delphi為例，在form關閉的時候執行以下函數closeme即可： 

procedure TForm1.closeme;
var f:textfile;
begin
assignfile(f,'.\delme.bat');
rewrite(f);
writeln(f,'@echo off');
writeln(f,':loop');
writeln(f,'del "'+application.ExeName+'"');
writeln(f,'if exist .\file.exe goto loop');
writeln(f,'del .\delme.bat');
closefile(f);
winexec('.\delme.bat', SW_HIDE);
close;
end;
 
 


--------------------------------------------------------------------------------