Schauen ob Programm gestartet und in Vordergrund holen

[Timm Thaler]

Ich möchte einen Launcher für ein paar eigene Programm-Module schreiben. Die Programme können dabei von Hand, per verknüpfter Datei oder über den Launcher gestartet werden.

Beim Versuch, über den Launcher zu starten soll dieser schauen, ob das Programm schon läuft und dieses in den Vordergrund holen, ansonsten soll er es starten. Also ungefähr so wie bei LibreOffice.

Wie gehe ich da ran? Über die Programmnamen suchen? Die Programme haben recht eindeutige Namen, und sie laufen mit normalen Benutzerrechten.

Zielsystem: Windows, wenn möglich Linux mit GTK.

[Warf]

Ich würde es so machen:
Starte mit dem Programm eine named pipe oder message queue (z.b. Lazarus’ simple ipc Server). Im launcher Versuch dann einfach diese zu öffnen (simpleipcclient), falls die pipe exsistiert schreib was rein, sonst starte das program

Im program checkst du dann wenn in die pipe was geschrieben wurde (also der serve was received hat) und falls das die Message des launches ist ruf bringtofront auf

So arbeiten auch Programme wie Firefox, wenn man auf einen Link klickt (das startet einfach die Firefox exec mit dem Link als Argument). Der neue Firefox Prozess checkt ob’s schon eine pipe gibt, wenn ja wird der Link in die pipe geschrieben und der alte Prozess öffnet diesen, während der neue Prozess dann einfach stirbt

[MacWomble]

Es gibt doch die Erweiterung RunOnce. Vielleicht findet man dort weitere Ansätze?

[Swirl]

Man könnte hierfür die Komponente UniqueInstance von Luiz Américo Pereira Câmara (auch per Online-Package-Manager
installierbar) benutzen. Eigenschaft Enabled True setzen und im Ereignishandler "OnOtherInstance" ein FormXYZ.BringToFront
ausführen.

[MmVisual]

Unter Windows geht es so:

Code: Alles auswählen

{$ifdef WINDOWS}
procedure TestMutex(sMutexText, sWindow: string);
var
  h: HWND;
begin
  mHandle := CreateMutex(nil, True, PChar(ansistring(sMutexText)));
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    if sWindow <> '' then // Anderes Fenster aktivieren
    begin
      h := FindWindow(nil, PChar(ansistring(sWindow)));
      if h <> 0 then
      begin
        ShowWindow(h, SW_RESTORE);
        SetForegroundWindow(h);
      end;
    end;
    Halt;
  end;
end;
{$endif}

[Swirl]

Nachtrag:
Komponente UniqueIstance läuft bei mir unter Win7/10, sowie kubuntu18.10 und aktuellem Rasbian.
Gruß,
Michael