Delphi中的自毀程序 (2001年4月13日) 

網友更新  分類:文件系統   作者:Boolean  推薦:Boolean   閱讀次數:769  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
procedure TForm1.OnClose;
var tfTmp:TextFile;
begin
...
//當然是滿足一定條件后才執行一下代碼
Assignfile(tfTmp,'delself.bat');
Rewrite(tfTmp);
Writeln(tfTmp,'@echo off');
Writeln(tfTmp,':loop');
Writeln(tfTmp,'del '''+Application.ExeName+'''');
Writeln(tfTmp,'If Exist'+Application.ExeName+'Goto loop');
Writeln(tfTmp,'del delself.bat');
Closefile(tfTmp); 
Winexec('delself.bat', SW_HIDE);
Close;
end;