Jump to content

Affengriff deaktivieren?


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

sollte auch unter win2k gehen

-----------------------------------------

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

-------------------------------------------

 

oder eben in den richtilinien ändern :p is einfacher

 

gruß

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...