✔ Prüfen ob ein Programm läuft

[MatMagic]

Hallo Community,
ich hab schon ge lt wie blöd aber leider nix passendes gefunden.

Wie kann ich beim start meines Programms überprüfen - ob ein bestimmtes Programm ausgeführt wird ?

Ich hoffe ihr könnt mir helfen....

 

[JensG]

Hallo MatMagic,

es gibt eine API FindWindow

Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, ByVal _
        lpWindowName As String) As Long

mit der du prüfen kannst ob für das Fenster des Programms ein Handle existiert.
Dazu brauchst du den Fensternamen, der in der oberen Leiste des Fensters steht.

Habs gerade mal bei Excel getestet.

Private Sub Command1_Click()
    
    Dim myHWND As Long
    
    
    myHWND = FindWindow(vbNullString, "Microsoft Excel - Mappe1")
    
    
    
End Sub

Wenn hier ein Handle <> 0 zurückgegeben wird ist das Programm / Fenster auch am laufen. Vorrausgesetzt das Programm hat ein Fenster.

Jens

 

[MatMagic]

Wow ! Super genau das was ich gesucht habe !
Danke