Wie kann ich [Strg]+[Alt]+[Entf] unter Win 95/98 deaktivieren?

Veröffentlicht: 11. Jan 2000 | Aktualisiert: 16. Jun 2004

Von Michael Willers

Das Zauberwort heißt in diesem Fall SystemParametersInfo. Mit dieser SDK-Funktion können Sie den "Affengriff" sperren. Wie das konkret funktioniert, zeigt das nachfolgende "Step-by-Step-Example".

1. Erstellen Sie ein neues Standard-EXE-Projekt. Standardmäßig wird das Formular mit der Bezeichnung Form1 erstellt.

2. Erstellen Sie zwei Buttons auf dem Formular und fügen Sie folgenden Code hinzu:

   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 
   Das ist der Trick! 
   Private Const SPI_SCREENSAVERRUNNING = 97 
   Private Sub Command1_Click() 
   Dim ret As Integer 
   Dim pOld As Boolean 
   ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0) 
   End Sub 
   Private Sub Form_Load() 
   Command1.Caption = "Disabled" 
   Command2.Caption = "Enabled" 
   End Sub 
   Private Sub Command2_Click() 
   Dim ret As Integer 
   Dim pOld As Boolean 
   ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING,False,pOld,0) 
   End Sub 
   Private Sub Form_Unload(Cancel As Integer) 
   ' alten Zustand wieder herstellen 
   Command2_Click 
   End Sub</font>
   

3. Lassen Sie das "Projekt" laufen und klicken Sie auf den Button "Disabled", um den Code zu testen. Klicken Sie auf den Button "Enabled", um den "Affengriff" wieder einzuschalten.

Haben Sie Anregungen oder Kritik? Dann schicken Sie uns eine Mail.