VisualBasic Snippets  

Deaktivieren von Strg-Alt-Entf:
 
Manchmal ist es notwendig (oder wünschenswert) den sogenannten Affengriff zu deaktivieren, die Lösung hierzu liegt in einem API-Aufruf.

Gehen Sie dafür folgendermaßen vor:
  • Erstellen Sie ein Standard EXE-Projekt mit einem Formular (FORM1).

  • Fügen Sie in dieses Formular zwei Buttons ein (COMMAND1 & COMMAND2).

Der untenstehende Code bedarf kaum einer weiteren Erläuterung. Für die Verwendung in eigenen Projekten werden die API-Deklaration, die Konstanten Zuweisung und die Funktion tsAffengriff benötigt.

Quelltext der Anwendung:
'API-Function deklarieren
Private Declare Function SystemParametersInfo Lib "user32" _
    Alias "SystemParametersInfoA" (ByVal uAction As Long, _
    ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

'Konstante deklarieren
Private Const apiConstSCREENSAVERRUNNING = 97

'------------------------------------------------------------
Function tsAffengriff(tsZustand As Boolean)
'Diese Funktion schaltet je nach Übergabewert die Tastenkombination an bzw. aus
Dim intReturn As Integer
Dim bolValue As Boolean

    intReturn = SystemParametersInfo(apiConstSCREENSAVERRUNNING, False, bolValue, 0)

End Function

'------------------------------------------------------------
Private Sub Command1_Click()

    tsAffengriff False

End Sub

'------------------------------------------------------------
Private Sub Command2_Click()

    tsAffengriff True

End Sub

'------------------------------------------------------------
Private Sub Form_Load()
'Formular intialisieren

    Form1.Caption = "Demoprogramm"
    Command1.Caption = "Disabled"
    Command2.Caption = "Enabled"

End Sub

'------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
'Beim verlassen STRG-ALT-ENTF wieder aktiveiren

    tsAffengriff True

End Sub


© '2000 by T. Schindzielorz