Erledigt! Wie prüfen ob ein bestimmtes Programm läuft?

[EmmJott]

Guude (wie man in Hessen so grüßt),

ich möchte den Start eines Programmes nur dann zulassen, wenn eine bestimmte Anwendung bereits gestartet ist bzw. das Programmen abbrechen, wenn diese bestimmte andere Anwendung nicht gestartet ist bzw. nicht mehr läuft (ggf. durch periodisches Prüfen). Wie macht man das?

[mk-soft]

Im englischen Forum findet man sowas (Wenn man weiss wonach man suchen muss

Link: https://www.purebasic.fr/english/viewto ... 78#p640278

Update 64 bit

Code: Alles auswählen

Global FilePath$

Prototype.i GetModuleFileNameExW(hProcess,hModule,*lpFilename,nSize.i)
Prototype.i GetModuleFileNameExA(hProcess,hModule,*lpFilename,nSize.i)

Global GetModuleFileNameEx.GetModuleFileNameExW

Lib = OpenLibrary(#PB_Any,"psapi.dll")
If Lib
  Global GetModuleFileNameEx.GetModuleFileNameExW = GetFunction(Lib,"GetModuleFileNameExW")  
Else
  MessageRequester("Warning", "Can not load Psapi.dll" ,#MB_ICONWARNING)
  End  
EndIf

Procedure CheckRunningExe(Process$)
  Proc32.PROCESSENTRY32
  Proc32\dwSize = SizeOf(PROCESSENTRY32)   
  snap = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0) 
  If Snap
    If Process32First_(snap, @Proc32)
      While Process32Next_(snap, @Proc32)
        ImageName$ = PeekS(@Proc32\szExeFile)
        If LCase(ImageName$) = Process$   ;Your exe file name here in lower case characters 
          FilePath$ = Space(1024)
          hProcess = OpenProcess_(#PROCESS_ALL_ACCESS, 0, Proc32\th32ProcessID)
          If hProcess
            GetModuleFileNameEx(hProcess, 0, @FilePath$, Len(FilePath$))
            CloseHandle_(hProcess)
          EndIf
          Break
        EndIf            
      Wend
    EndIf
    CloseHandle_(Snap)
  EndIf
EndProcedure

CheckRunningExe("explorer.exe")
If GetPathPart(FilePath$) <> ""
  Debug "It's not a service"
  Debug FilePath$
Else
  Debug "It's a service"
EndIf 

[jogo]

In Linux nutze ich via RunProgram() das Tool pgrep mit den Parametern -alf zu_prüfendes Programm
Im Terminal zum testen:

Code: Alles auswählen

pgrep -alf xed

xed ist hier in diesem Beispiel der Name eines Texteditors.
pgrep liefert (wenn xed gestartet) die PID und den Namen. Bei manchen Programmen noch mehr Infos (zB. Firefox). Wenn kein laufender Prozess für xed gefunden wurde, wird nix zurückgeliefert.
In Purebasic via RunProgramm():

Code: Alles auswählen

status = RunProgram("pgrep", "-alf xed", "",#PB_Program_Open | #PB_Program_Read) ;systemtool zum prüfen auf existierende programme starten
  Delay(50)                                                                      ;tick auf die antwort warten
  While AvailableProgramOutput(status)                                            ;läuft so lange, wie daten vorliegen
    txt = ReadProgramString(status)        
  Wend
  Delay(30)
  CloseProgram(status) ;datenverbindung trennen // beendigung nicht nötig, weil pgrep sich selbst beendet hat, wenn keine daten mehr kommen

wenn txt leer ist/bleibt, ist dein gewünschtes Programm (hier xed) nicht gestartet. Und wenn txt Text enthält, heißt das für dich, dass xed bereits läuft. Der Inhalt ist also für diesen Zweck unwichtig - du willst ja nur wissen, ob oder ob nicht...
Windows habe ich nicht, aber vermutlich gibt es dafür ein ähnliches Kommandozeilen-Tool.
Mit PureBasic direkt habe ich es nicht geschafft, bzw. ich habe dafür keine Funktion gefunden.

EDIT: ahh, hat sich überschnitten - mk-soft war schneller. Jo, dann hast ja auch gleich die perfekte Lösung für Windows

[EmmJott]

Vielen Dank für Eure Hilfe!

Und ja - wenn man weiß, wonach man suchen muss, wird man auch fündig!