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:	Views:  30.035
www.andreaswolff.de	System:  Win9x, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

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.