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.