Supportnet / Forum / Anwendungen(Java,C++...)
In VB6 testen, ob OUTLOOK läuft
Frage
Wie kann ich in VB rauskriegen, ob ein bestimmtes Programm, z.b. OUTLOOK schon gestartet ist?
Da auf dem Rechner auch mittels Terminal zugegriffen wird, kommt ein Eintrag von OUTLOOK in der Autostart nicht in Frage.
Antwort 1 von Marie
Private Declare Function FindWindow _
Lib "user32" _
Alias "FindWindowA" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long
Dim hWnd As Long
hWnd = FindWindow("OPUSAPP", vbNullString)
If hWnd = 0 Then
' Word ist nicht gestartet
Else
' Word ist gestartet
End If
Was Du aber für Outlook anstelle von OpusApp eingeben musst, das weiss ich nicht, musste nachsehen. OpusApp ist Word. :-)
Gruß Marie
Lib "user32" _
Alias "FindWindowA" _
( _
ByVal lpClassName As String, _
ByVal lpWindowName As String _
) _
As Long
Dim hWnd As Long
hWnd = FindWindow("OPUSAPP", vbNullString)
If hWnd = 0 Then
' Word ist nicht gestartet
Else
' Word ist gestartet
End If
Was Du aber für Outlook anstelle von OpusApp eingeben musst, das weiss ich nicht, musste nachsehen. OpusApp ist Word. :-)
Gruß Marie