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.