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