PC als Info Terminal!!

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