Public Declare Function CloseHandle Lib "kernel32" (ByVal _
   hObject As Long) As Long
 
Public Declare Function OpenProcess Lib "kernel32" (ByVal _
   dwDesiredAccess As Long, ByVal bInheritHandle As _
   Long, ByVal dwProcessId As Long) As Long
 
Public Declare Function TerminateProcess Lib "kernel32" (ByVal _
   hProcess As Long, ByVal uExitCode As Long) As Long
 
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
 
Public Enum procReturnValue
  Handle = 0
  ProcessID = 1
End Enum
 
Const PROCESS_TERMINATE = &H1
 
Public Function IsEXERunning(ByVal sFilename As String, _
  Optional ByVal iReturn As procReturnValue = ProcessID) As Long
 
  Dim lSnapshot As Long
  Dim uProcess As PROCESSENTRY32
  Dim nResult As Long
 
  ' "Snapshot" des aktuellen Prozess ermitteln
  lSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)
  If lSnapshot <> 0 Then
    uProcess.dwSize = Len(uProcess)
 
    ' Ersten Prozess ermitteln
    nResult = ProcessFirst(lSnapshot, uProcess)
 
    Do Until nResult = 0
      ' Prozessliste durchlaufen
      If InStr(LCase$(uProcess.szexeFile), LCase$(sFilename)) > 0 Then
        DoEvents
        ' Jepp - EXE gefunden
        If iReturn = Handle Then
          DoEvents
          IsEXERunning = ProcID2hWnd(uProcess.th32ProcessID)
        Else
          DoEvents
          IsEXERunning = uProcess.th32ProcessID
        End If
        DoEvents
        Exit Do
      End If
 
      ' nächster Prozess
      nResult = ProcessNext(lSnapshot, uProcess)
      DoEvents
    Loop
 
    ' Handle schliessen
    CloseHandle lSnapshot
  End If
End Function
 
Private Sub cmdTerminate_Click() 
          Dim lngPID As Long, hTask As Long, lResult As Long
          lngPID = IsEXERunning(<***Name deiner exe>***, ProcessID)
          If lngPID <> 0 Then
             hTask = OpenProcess(PROCESS_TERMINATE, 0&, lngPID)
             lResult = TerminateProcess(hTask, 0)
             lResult = CloseHandle(hTask)
          End if
End Sub

cu

ari