让应用程序自身删除 (2001年4月8日).txt

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

让应用程序自身删除 (2001年4月8日) 

网友更新  分类:数据库   作者: winfit(推荐)  推荐:winfit   阅读次数:361  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
原理：在应用程序刚要退出之前创建一个Delself.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列代码： 

AssignFile(F, ′delself.bat′);Rewrite(F);{F为TextFile类型} 

WriteLn(F,′del ′＋ExtractFileName(Application.ExeName)); 

WriteLn(F,′del ％0′);CloseFile(F); 

WinExec(′delself.bat′,SW—HIDE);