如何能用API锁定键盘？ (100分)

心语 · 2001-09-15

如何在程序中锁定机器的键盘？

htw · 2001-09-15

调用屏幕保护程序即可, 注意在屏幕保护程序中要设置密码 Winexec('c:/windows/system/三维文字.scr',SW_SHOW);

htw · 2001-09-15

当然最好c:/windows/system目录中的所有scr文件列表出来，由用户选择 这可要写点代码了

smilboy · 2001-09-15

首先2000是没办法的 我这里有几种方法 1汇编(2000不行) 2利用blackinput（要在timer中使用，因为他不能拦截CTRL+ALT+DEL, 但是我保证她什么也干不成了，因为结束任务试没希望的）

kindly · 2001-09-16

写个键盘钩子,把消息队列里的所有按键都吃掉

Algenib · 2001-09-17

我一般是用Hook来处理比较特别的KeyBoardMessage，不过对于Sleep、Wake Up、Power 还有该死的Ctrl+Alt+Del这些没办法了~~~~~~~~~如果大家有办法一定要告诉我啊

varphone · 2001-09-18

自己写 VXD 吧!

zbsfg · 2001-09-18

你查查以前的贴子,有许多(Id:443460讲得很实用) 以下是摘抄xujiancai和Fyx的回答: procedure TForm1.Button1Click(Sender: TObject); Var   rtButton2: TRect; Temp:integer; begin   rtButton2 := Button2.BoundsRect;   MapWindowPoints(handle, 0, rtButton2, 2); // 座标换算   ClipCursor(@rtButton2); // 限制滑鼠移动区域 SystemParametersInfo(spi_screensaverrunning,1,@temp,0); end; 锁鼠标上面说了，锁键盘： procedure TForm1.Button1Click(Sender: TObject); begin   Asm    //封锁20端口     IN AL,21H     OR AL,02H     OUT 21H,AL   end; end; 解锁键盘： procedure TForm1.Button2Click(Sender: TObject); begin   Asm     //解锁20端口     IN AL,21H     AND AL,0FDH     OUT 21H,AL   end; end;

心语 · 2001-10-02

方法我试过了谁能用API的方法实现我立马给分

梆梆 · 2001-10-02

不要说100分，win2000下要是谁能用任何方法真正锁住键盘的，我立刻给500分！ [

]

心语 · 2001-10-02

为什么用汇编屏蔽不了那三个键？

expect · 2001-10-02

Ctrl+Alt+Del 在windows2000下可能弄不掉

大海黄 · 2001-10-05

什么意思？

sheltonlam · 2001-10-06

在98年的电脑报（也可能是99年的电脑报）我看到过用API函数屏蔽所有键盘使用的例子，请 提问者留意一下电脑报即可。很简单，就几行代码而已，不过我现在忘记了，去翻一下电脑报 就行了。

lww · 2001-10-06

//下面是锁定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;

YB_unique · 2001-10-08

试试这个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.

心语 · 2001-10-08

在WIN2K下可以吗?

YB_unique · 2001-10-08

可以！

心语 · 2002-03-17

win2k下有个什么函数可以锁定 有谁知道？

laker20 · 2002-03-17

关注

如何能用API锁定键盘？ (100分)

心语

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

htw

Unregistered / Unconfirmed

smilboy

Unregistered / Unconfirmed

kindly

Unregistered / Unconfirmed

Algenib

Unregistered / Unconfirmed

varphone

Unregistered / Unconfirmed

zbsfg

Unregistered / Unconfirmed

心语

Unregistered / Unconfirmed

梆梆

Unregistered / Unconfirmed

心语

Unregistered / Unconfirmed

expect

Unregistered / Unconfirmed

大海黄

Unregistered / Unconfirmed

sheltonlam

Unregistered / Unconfirmed

lww

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

心语

Unregistered / Unconfirmed

YB_unique

Unregistered / Unconfirmed

心语

Unregistered / Unconfirmed

laker20

Unregistered / Unconfirmed

Similar threads