Delphi 实现自删除

Posted 2020-07-27 朝闻道

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