delphi中的自毁程序 (2001年4月13日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 24 行

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;