Delphi 实现自删除

program Project1;
uses
  SysUtils,  windows;
var f:textfile;
    a:string;  

begin
    a:=paramstr(0);
    assignfile(f, ‘delself.bat‘);
    rewrite(f);
    writeln(f, ‘del ‘ + pchar(‘"‘+pchar(a)+‘"‘));
    writeln(f, ‘del %0‘);
    closefile(f);
    winexec(‘delself.bat‘, sw_hide);
end. 

http://blog.csdn.net/emdfans/article/details/11769483