0030301.txt

来自「Delphi编程五大妙招源程序」· 文本 代码 · 共 14 行

1：让应用程序自身删除 
    在应用程序刚要退出之前创建一个Delself.bat文件，让它先删除应用程序，然后删除自身。在Form的OnClose事件中加入下列代码： 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  F : TextFile ;
begin
  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);
end;