Rubrik: Allgemein | 13.03.02 |
Einen Prozess beenden VB-Version: VB5, VB6 | ||
Views: 39.238 |
Einen Prozess gezielt beenden - wenn die TaskId bekannt ist - geht so:
Private Declare Function CloseHandle Lib "kernel32" ( _ ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" ( _ ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" ( _ ByVal hProcess As Long, _ ByVal uExitCode As Long) As Long Const PROCESS_TERMINATE = &H1 Public lTaskID as Long Private Sub cmdTerminate_Click() Dim hTask As Long Dim lResult As Long hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID) lResult = TerminateProcess(hTask, 1&) lResult = CloseHandle(hTask) End Sub
Ein Beispiel wie man alle laufenden Anwendungen und auch die TaskID der Anwendungen ermitteln kann finden Sie in unserem Tipp Alle laufenden Programme ermitteln .