Restart einer App

[DelphiUser123]

Hallo liebes Forum.
Ich habe ein Problem mit folgendem Code:

Delphi-Quellcode:

ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
StartupInfo.cb := SizeOf(StartupInfo);
ZeroMemory(@ProcessInfo, SizeOf(ProcessInfo));

if CreateProcess(nil, PChar(App_path), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
  begin
    Application.terminate;

    CloseHandle(ProcessInfo.hProcess);
    CloseHandle(ProcessInfo.hThread);
  end;

Bei meinem alten PC schließt die aktuelle App (unter App_path) und startet sich neu wie gewünscht.
Bei meinem neuen PC jedoch flackert die neu gestartete App sehr kurz auf und alles schließt sich, was es nicht soll.
Was kann man hier machen?
Vielen Dank für Antworten.

[himitsu]

Gerade beim CreateProcess sollte man besser nicht das Quoting " vergessen.

Wenn die neue Anwendung wirklich startet und dann einfach verschwindet .... siehe Windows-Ereignislog
Falls nicht, dann sollte jemand (du) nicht die Fehlerbehandlung Fehlerauswertung vergessen.

Bzw. im eigenen Code noch etwas warten und GetExitCodeProcess prüfen.

Delphi-Quellcode:

//uses Winapi.ShellAPI;
if ShellExecute(Self.Handle, nil, PChar(ParamStr(0)), nil, PChar(ExtractFilePath(ParamStr(0))), SW_NORMAL) <= 32 then
  RaiseLastOSError;
Application.Terminate;

PS: Beim CreateProcess kannst'e auch einfach GetCommandLine anstatt ParamStr(0), bzw. Application.ExeName verwenden. (für ShellExecute muß man EXE und Params leider erst trennen)