Affengriff deaktivieren?

[DT-Marcel 10]

Wie kann man den Affengriff (Strg + Alt + Entf) in Windows 2000 deaktivieren?

 

Unter Win 95/98 kann man sich ja mit einem einfachen VB Programm bedienen, aber unter Win 2000 scheint das nun nicht mehr zu funktionieren.

[Nic 10]

Hallo!

 

Du kannst mit der lokalen Sicherheitsrichtlinie den "Affengriff" vor der Anmeldung an W2K deaktivieren.

 

Über die lokale Gruppenrichtlinie kann man auchauch das Menü "Windows 2000 Sicherheit" (welches ja nach dem Affengriff kommt) abschalten.

 

Gruss

 

Nic

[Basti 10]

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ß

[Mohadip23 10]

Aus Sicherheitsgründen bitte nicht den Affengriff von der Anmeldung entfernen.

 

 

moha23