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!

Recommended Posts

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 to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...