Prüfen, ob ein Programm läuft

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
das sind aber zwei paar Stiefel. Beim Explorer musst du nach dem Festertitel in der Titelleiste suchen, bei hlp.exe muss du nach dem Prozess suchen.
1. Explorerfenster mit einem bestimmten Titel suchen:
Option Explicit

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32.dll" ( _
    ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
    ByVal hwnd As Long, _
    ByVal lpClassName As String, _
    ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" ( _
    ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" ( _
    ByVal hwnd As Long, _
    ByVal lpString As String, _
    ByVal cch As Long) As Long

Private Const MAX_COUNT = 256&

Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2

Private Const WS_VISIBLE = &H10000000
Private Const WS_BORDER = &H800000

Private Const GWL_STYLE = -16

Private Const GC_CLASSNAMEMSIEXPLORER = "IEFrame"

Private Function fncSearchWindow(strWindowtitle As String) As Boolean
    Dim intIndex As Integer
    Dim lnghWnd As Long, lngStyle As Long, lngReturn As Long
    Dim strClassName As String, strClass As String
    strClassName = Space$(MAX_COUNT)
    lnghWnd = GetWindow(FindWindow(vbNullString, vbNullString), _
        GW_HWNDFIRST)
    Do
        lngStyle = GetWindowLong(lnghWnd, GWL_STYLE) And _
            (WS_VISIBLE Or WS_BORDER)
        If lngStyle = (WS_VISIBLE Or WS_BORDER) Then
            lngReturn = GetClassName(lnghWnd, strClassName, _
                MAX_COUNT)
            strClass = Left$(strClassName, lngReturn)
            If strClass = GC_CLASSNAMEMSIEXPLORER Then
                If Trim$(fncGetWindowTitle(lnghWnd)) = strWindowtitle Then
                    fncSearchWindow = True
                    Exit Function
                End If
            End If
        End If
        lnghWnd = GetWindow(lnghWnd, GW_HWNDNEXT)
    Loop Until lnghWnd = 0
End Function

Private Function fncGetWindowTitle(ByVal lnghWnd As Long) As String
    Dim lngReturn As Long, strTemp As String
    lngReturn = GetWindowTextLength(lnghWnd) + 1
    strTemp = Space$(lngReturn)
    GetWindowText lnghWnd, strTemp, lngReturn
    fncGetWindowTitle = Left$(strTemp, Len(strTemp) - 1)
End Function

Public Sub test()
    If Not fncSearchWindow("Dein Fenstertitel") Then 'anpassen !!!
        ' Deine Datei öffnen
    End If
End Sub

2. Prüfen, ob ein bestimmter Prozess läuft:
Option Explicit

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32.dll" ( _
    ByVal dwFlags As Long, _
    ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32.dll" ( _
    ByVal hSnapshot As Long, _
    ByRef lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32.dll" ( _
    ByVal hSnapshot As Long, _
    ByRef lppe As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" ( _
    ByVal hObject As Long) As Long

Private Const TH32CS_SNAPPROCESS = &H2

Private Const MAX_PATH = 260&

Private Type PROCESSENTRY32
    dwSize As Long
    cntUsage As Long
    th32ProcessID As Long
    th32DefaultHeapID As Long
    th32ModuleID As Long
    cntThreads As Long
    th32ParentProcessID As Long
    pcPriClassBase As Long
    dwFlags As Long
    szExeFile As String * MAX_PATH
End Type

Private Function fncSearchProcess(strProcessname As String) As Boolean
    Dim Snap As Long, Process As PROCESSENTRY32, Result As Long
    Snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If Snap <> -1 Then
        Process.dwSize = Len(Process)
        Result = Process32First(Snap, Process)
        Do Until Result = 0
            If InStr(1, LCase$(Process.szExeFile), LCase$(strProcessname)) Then
                fncSearchProcess = True
                Exit Function
            End If
            Result = Process32Next(Snap, Process)
        Loop
    End If
    CloseHandle Snap
End Function

Public Sub test()
    If Not fncSearchProcess("hlp.exe") Then
        MsgBox "hlp.exe läuft nicht"
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen, ob ein Programm läuft

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread