this slowpoke moves

Program deletes itself

Procedure DelExe;
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; 
Beispiel für das OnClose Event :
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DelExe;
end;

Keine Kommentare:

Kommentar veröffentlichen

Beliebte Posts

Translate