Application - Apagando o EXE depois de sair

// ...delete program after it finishing ?

// http://www.interlync.com/vitaly 

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;