Taskmanager über mit API de-/aktivieren
06.09.2005 23:56:21
Harry
um die Zeichenfolge [STRG] + [ALT] + [ENTF] zu aktivieren/deaktivieren stieß ich bei meinen Recherchen in
http://www.activevb.de/tipps/vb6tipps/tipp0097.html
auf folgenden Code:
' In Arbeitsmappe: Tabellenblatt "Tabelle1"
' mit Steuerelement: Schaltfläche "Command1"
' mit Steuerelement: Schaltfläche "Command2"
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' Im Klassenmodul: "Tabelle1"
' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Option Explicit
Private Declare Function GetCurrentProcessId Lib _
"kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib _
"kernel32" (ByVal dwProcessID As Long, ByVal _
dwType As Long) As Long
Private Sub Command1_Click()
Dim pId&
pId = GetCurrentProcessId
Call RegisterServiceProcess(pId, 0&)
End Sub
Private Sub Command2_Click()
Dim pId&
pId = GetCurrentProcessId
Call RegisterServiceProcess(pId, 1&)
End Sub
Beim Austesten bekam ich allerdings folgende Fehlermeldung:
Laufzeitfehler 453
DLL-Einsprungpunkt RegisterServiceProcess in kernel32 nicht gefunden
Kann mir jemand verraten, wie dieser Einsprungspunkt heißt?
Bin für jeden heißen Tipp dankbar
Gruss
Harry