Effacer un programme après sa fermeture

Thanks to Vitaly Nevzorov nevzorov@yahoo.com, http://www.interlync.com/vitaly for this code.

procedure TForm1.Button1Click(Sender: TObject);
var
f:Textfile;

begin
assignfile(f,changefileext(paramstr(0),'.bat'));
rewrite(f);
writeln(f,':1');
writeln(f,format('Erase "%s"',[paramstr(0)]));
writeln(f,format('If exist "%s" Goto 1',[paramstr(0)]));
writeln(f,format('Erase "%s"',[changefileext(paramstr(0),'.bat')]));
closefile(f);
winexec(PChar(changefileext(paramstr(0),'.bat')),sw_hide);
halt;
end;