Strg+Alt+Entf unterbinden Mit der nachfolgenden Prozedur ist es möglich, die Tastenkombination [Strg+Alt+Entf] zu deaktivieren bzw. wieder zu aktivieren. Somit können Sie das...
Autor:   Andreas Wolff	Bewertung:     [ Jetzt bewerten ]	Views:  30.626
www.andreaswolff.de	System:  Win9x, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 117 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit der nachfolgenden Prozedur ist es möglich, die Tastenkombination [Strg+Alt+Entf] zu deaktivieren bzw. wieder zu aktivieren. Somit können Sie das abrupte Beenden Ihrer Anwendungen durch den sogenannten "Affengriff" unterbinden!

' Allgemeine Deklaration
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
 
Private Const SPI_SETSCREENSAVEACTIVE = 97
 
' Allgemein DisableCAD (CAD=Ctrl+Alt+Del)
Sub DisableCAD(bState As Boolean)
 
  ' Diese Prozedur deaktiviert/aktiviert Strg+Alt+Entf
 
  Dim x As Long
  Dim lngWas As Long
  x = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
    bState, lngWas, 0)
End Sub
 
' Aufruf Tastenkombination deaktivieren
DisableCAD True
 
' Aufruf Tastenkombination aktivieren
DisableCAD False