Externes Programm starten, beenden, in den Vordergrund holen

[NetSonic]

Hallo liebe User der DP,

ich stehe etwas auf dem Schlauch wegen folgendem Problem:
Ich möchte aus meinem Programm heraus eine weitere Anwendung starten, falls Sie noch nicht gestartet wurde.
Wurde Sie bereits gestartet, soll die Anwendung in den Vordergrund geholt und nicht nochmals gestartet werden.
Wenn ich das "Hauptprogramm" beendete, will ich prüfen ob die weitere Anwendung auch noch läuft und diese dann ggf. auch beenden.

Ich habe schon mit ShellExecuteEx usw. rumprobiert und mir die Handles zurückgeben lassen, aber irgendwie mache ich wohl etwas falsch.
Ich bekomme zwar einen Cardinal-Wert zurück, aber dieser existiert auch noch, wenn die Anwendung schon beendet wurde und dann startet Sie nicht nochmal...

Funktion zur Ausführung der Anwendung:

Delphi-Quellcode:

function ExecAndWait(Filename, Params: String;
                     WindowState: Word = SW_SHOWNORMAL; Wait : Boolean = False): Cardinal;
var
  {$IFDEF UNICODE} ShExecInfoW: SHELLEXECUTEINFOW; {$ENDIF}
  ShExecInfoA: SHELLEXECUTEINFOA;
// MSDN: ShellExecuteEx, ShellExecuteInfo
begin
  Result := 0;
  if (Filename = '') or not FileExists(FileName) then
    exit;
  {$IFDEF UNICODE}
  if Win32IsUnicode then
  begin
    ProgramStarting := True;
    ZeroMemory(@ShExecInfoW, SizeOf(ShExecInfoW));
    ShExecInfoW.Wnd          := GetForegroundWindow;
    ShExecInfoW.cbSize       := SizeOf(SHELLEXECUTEINFOW);
    ShExecInfoW.fMask        := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoW.lpVerb       := 'open';
    ShExecInfoW.lpFile       := PWideChar(WideString(Filename));
    ShExecInfoW.lpParameters := PWideChar(WideString(Params));
    ShExecInfoW.lpDirectory  := PWideChar(WideString(ExtractFileDir(Filename)));
    ShExecInfoW.nShow        := WindowState;

    try
      ShellAPI.ShellExecuteExW(@ShExecInfoW);
      Result := ShExecInfoW.hProcess;
      if Wait then WaitForSingleObject(ShExecInfoW.hProcess, INFINITE);
    finally
      CloseHandle(ShExecInfoW.hProcess);
      ProgramStarting := False;
    end;
  end
  else
  {$ENDIF}
  begin
    ZeroMemory(@ShExecInfoA, SizeOf(ShExecInfoA));
    ShExecInfoA.Wnd          := GetForegroundWindow;
    ShExecInfoA.cbSize       := sizeof(SHELLEXECUTEINFOA);
    ShExecInfoA.fMask        := SEE_MASK_NOCLOSEPROCESS;
    ShExecInfoA.lpVerb       := 'open';
    ShExecInfoA.lpFile       := PAnsiChar(AnsiString(Filename));
    ShExecInfoA.lpParameters := PAnsiChar(AnsiString(Params));
    ShExecInfoA.lpDirectory  := PAnsiChar(AnsiString(ExtractFileDir(Filename)));
    ShExecInfoA.nShow        := WindowState;

    try
      ShellExecuteExA(@ShExecInfoA);
      Result := ShExecInfoA.hProcess;
      if Wait then WaitForSingleObject(ShExecInfoA.hProcess, INFINITE);
    finally
      CloseHandle(ShExecInfoA.hProcess);
    end;
  end;
end;

Aufruf:

Delphi-Quellcode:

var
 cMod: Cardinal;
begin
if (IsWindow(cMod)) then
begin
     ShowWindow(cMod, SW_NORMAL);
     SetForegroundWindow(cMod);
end
else begin
     cMod := ExecAndWait(ExtractFilePath(Application.ExeName)+'\mod\newapp.exe', '', SW_SHOWNORMAL, False);
end;

Hat jemand einen Tipp für mich?

Gruß
NetSonic