如何在2000下拦截Ctrl+Alt+Del！

Question

问题如题。
UP，GZ有分。
请精确解决标题所指明的问题。

Answer 1

现在我给你提供几个方法，版主可得给份哦！！
//下面是锁定Ctrl+Alt+Del Alt+F4 Alt+ESC等系统组合键
//锁定其他非组和键最好用键盘钩子实现
锁定
procedure hidekey;
Var
temp:integer;
begin
SystemParametersInfo(Spi_screensaverrunning,1,@temp,0);
end;
解锁
procedure hidekey;
Var
temp:integer;
begin
SystemParametersInfo(Spi_screensaverrunning,0,@temp,0);
end;试试这个HOOK！Library KillKB;
Uses Wintypes, WinProcs
{$IFNDEF VER80},
{$ENDIF};
Var
oldHook: Hhook;Function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;
export;
Begin
If code < 0 Then
KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
Else
KbHook := 1;
End; { KbHook }Function DisableKeyboard: Boolean; export;
Begin
oldHook := SetWindowsHookEx( WH_KEYBOARD, KbHook, Hinstance, 0 );
DisableKeyboard := oldHook <> 0;
End;Procedure EnableKeyboard; export;
Begin
If oldHook <> 0 Then Begin
UnhookWindowshookEx( oldHook );
oldHook := 0;
End; { If }
End;exports
DisableKeyboard index 1,
EnableKeyboard index 2;Begin
oldHook := 0;
End.    

Answer 2

要使系统的热启动键（Ctrl+Alt+Del）失效，使用以下语句
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);要恢复系统的热启动键（Ctrl+Alt+Del），使用以下语句
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

Answer 3

2000下要拦截Ctrl+Alt+Del,要改系统的GINA.dll文件。换成你自己的。

Answer 4

TO:pankun(剑神一笑) 
你的方法我喜欢。也是真的有效啊！

Answer 5

请参考这儿
http://www.tech521.com/techData/data/1930.asp