Hi,
evtl. hilft eine Bat-Datei:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var sl:Tstringlist;
begin
sl:=TStringlist.create;
//evtl. wird hier eine verzögerung benötigt (kann mittels ping realisiert werden)
sl.Add('start '+paramstr(0));
sl.add('del %0');
sl.savetofile(extractfilepath(paramstr(0))+'test.bat');
sl.free;
application.terminate;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
winexec(PCHAR(extractfilepath(paramstr(0))+'test.bat'),sw_hide);
end;
in meinem Test hat es so funktioniert... (muss evtl. noch verfeinert werden)
Gruß Frank