Registriert seit: 9. Nov 2003
Ort: 04539 Groitzsch
1.351 Beiträge
Delphi 11 Alexandria
|
Re: Sich selbst neu starten?
27. Jul 2006, 12:05
Hi,
ich benutze folgende Routine, um z.B. nach kritischen Fehlern mein Programm wieder zu starten.
Delphi-Quellcode:
procedure ForceKillApplication(ARestart: boolean = False);
var
AStartInfo: TStartupInfo;
AProcInfo: TProcessInformation;
begin
if ARestart then
begin
GetStartupInfo(AStartInfo);
FillChar(AProcInfo, SizeOf(TProcessInformation), #0);
CreateProcess(nil, GetCommandLine, nil, nil, False,
CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS, nil,
PChar(GetCurrentDir), AStartInfo, AProcInfo);
end;
TerminateProcess(GetCurrentProcess, 1);
end;
Frank
Frank Reim
|
|
Zitat
|