Comment desactiver ctrl+alt+suppr sur Windows 2000

Signaler
Messages postés
16
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
22 août 2003
-
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005
-
comment desactiver ctrl+alt+suppr sur Windows 2000

4 réponses

Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

Bonjour,

Article sur www.allapi.com :

Sometimes it is necessary for a program to prevent the use of the
CTRL+ALT+DEL key combination to bring up the Close Program task list to end
a task or shut down Windows 95 and to prevent the use of the ALT+TAB key
combination to switch tasks. The following technique uses the
SystemParametersInfo API to trick Windows 95 into thinking that a screen
saver is running. As a side effect, CTRL+ALT+DEL and ALT+TAB are disabled.

The Win32 SDK states:
"SPI_SCREENSAVERRUNNING Windows 95: Used internally; applications should
not use this flag. Windows NT: Not supported."

Note that disabling CTRL+ALT+DEL is not recommended because the Close
Program dialog box was created to enable users to terminate misbehaving
applications. If a program "hangs" while CTRL+ALT+DEL is disabled, it may
not be possible to terminate it by any method other than rebooting the
machine, which could result in the loss of data.

You will need two command buttons for this program.

Private Const SPI_SCREENSAVERRUNNING = 97&
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

Private Sub Form_Load()
Command1.Caption = "Disabled"
Command2.Caption = "Enabled"
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Re-enable CTRL+ALT+DEL and ALT+TAB before the program terminates.
Command2_Click
End Sub

Private Sub Command1_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, _
blnOld, 0&)
End Sub

Private Sub Command2_Click()
Dim lngRet As Long
Dim blnOld As Boolean
lngRet = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, _
blnOld, 0&)
End Sub

Press the F5 key to run the program, and click the "Disabled"CommandButton. CTRL+ALT+DEL and ALT+TAB and CTRL-ESC are disabled. Click the "Enabled" CommandButton to enable CTRL+ALT+DEL and ALT+TAB and CTRL-ESC again.

Cordialement

Stéphane Maillard

Mail : stephane.maillard@rixy-software.com
Support : support@rixy-software.com
Site : www.rixy-software.com
0
Messages postés
16
Date d'inscription
mercredi 13 mars 2002
Statut
Membre
Dernière intervention
22 août 2003

merci pour la reponse. le probleme est que ce code ne marche sur windows 2000 et superieur.
je vous serai reconnaissant si vous pouvez avoir la technique pour le faire sur W2k.
0
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

Bonjour,

Voici ce que j'ai trouvé sur www.planet-source-code.com :

This Program Protects Your PC From Unwanted Usage It Have Mouse Trap, Disable 'CTRL+ALT+DEL' and More try to use it in The Start Up Folder Download And see, IT MAY NOW WORK IN WinXP

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38393&lngWId=1

Cordialement

Stéphane Maillard

Mail : stephane.maillard@rixy-software.com
Support : support@rixy-software.com
Site : www.rixy-software.com
0
Messages postés
97
Date d'inscription
jeudi 10 mai 2001
Statut
Membre
Dernière intervention
20 juin 2005

Re,

Encore un autre sur le meme site :

The following code will demonstrate how to disable Ctrl-Alt-del in Win 9x platform, and how to disable various options in the Ctrl-Alt-Del List in Win NT/2K/XP. To understand the code, you must know how to use the Api functions, although I have tried to keep all the api's in seperate classes. There is also a class which determines if the OS is from Win9x or Win NT series. Hope you would fine some use for it.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=38136&lngWId=1

Cordialement

Stéphane Maillard

Mail : stephane.maillard@rixy-software.com
Support : support@rixy-software.com
Site : www.rixy-software.com
0