(0) exportieren Drucken
Alle erweitern

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.


Anzeigen:
© 2014 Microsoft