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 . Diese Seite wurde bereits 39.348 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Neu! sevEingabe 3.0 Einfach stark! Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |