盒子论坛 v2.1

标题　: 锁定键盘 (Win2000 ,WinXP 下调试通过)
关键字: 锁定键盘锁键盘
分类　: 开发技巧
密级　: 公开
(评分: , 回复: 0, 阅读: 55) »»
//===================================================================//
// 写了个定时提醒软件来提醒自己每 50 分钟就休息 10 分钟，后来发现自己//
// 很不自觉（意料之内的事了），为有出绝招：锁键盘！                  //
//===================================================================//
unit LockTheKB;

interface
uses
Wintypes,  WinProcs;

//键盘上锁
Function DisableKeyboard: Boolean;
//键盘解锁
Procedure EnableKeyboard;

implementation

var
oldHook: Hhook;

Function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;
Begin
If code < 0 Then
   KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
Else
   KbHook := 1;
End; // KbHook

Function DisableKeyboard: Boolean;
//上锁
Begin
oldHook := SetWindowsHookEx( WH_KEYBOARD, @KbHook, Hinstance, 0 );
DisableKeyboard := oldHook <> 0;
End;

Procedure EnableKeyboard;
//解锁
Begin
If oldHook <> 0 Then
Begin
   UnhookWindowshookEx( oldHook );
   oldHook := 0;
End; // If
End;
end.

----------------------------------------------

作者：

crazy (疯子)	★☆☆☆☆	-
	盒子活跃会员

2004/1/20 19:15:05

2楼：

你怎么拿我们的主席开玩笑

你用的是不是就是什么钩子来的

教我几招如何学习使用钩子

----------------------------------------------
春花秋月何時了

往事知多少

小樓昨夜又東風

作者：

register (隐神)	★☆☆☆☆	-
	盒子活跃会员

2004/1/20 23:18:00

3楼：

//===================================================================//
// 写了个定时提醒软件来提醒自己每 50 分钟就休息 10 分钟，后来发现自己//
// 很不自觉（意料中的事了），为有出绝招：锁键盘！  (没锁DEL+CTRL+ATL)//
//===================================================================//

unit LockTheKB;

interface
uses
  Wintypes,  WinProcs, Windows;//, Types, Forms;

  //键盘上锁
  Function DisableKeyboard: Boolean;
  //键盘解锁
  Procedure EnableKeyboard;
  //鼠标上锁
  function KM_LockMouse: Boolean;
  //鼠标解锁
  function KM_UnLockMouse: Boolean;

implementation

var
  oldHook: Hhook;
  hMouseHook: Integer;

//键盘 Hook
Function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt;
Begin
  If code < 0 Then
    KbHook := CallNextHookEx( oldHook, code, wparam, lparam )
  Else
    KbHook := 1;
End; // KbHook

Function DisableKeyboard: Boolean;
//键盘上锁
Begin
  oldHook := SetWindowsHookEx( WH_KEYBOARD, @KbHook, Hinstance, 0 );
  DisableKeyboard := oldHook <> 0;
End;

Procedure EnableKeyboard;
//键盘解锁
Begin
  If oldHook <> 0 Then
  Begin
    UnhookWindowshookEx( oldHook );
    oldHook := 0;
  End; // If
End;

//MouseHook
function MouseHook(iCode: Integer; wParam: wParam; Mouse: lParam): LRESULT; stdcall;
begin
  if iCode < 0 then
    CallNextHookEx(hMouseHook, iCode, wParam, Mouse);
  Result := 1;
end;

// LockMouse
function KM_LockMouse: Boolean;
begin
  hMouseHook := SetWindowsHookEx(WH_MOUSE, MouseHook, HInstance, 0);
  Result := true;
end;

//UnLockMouse
function KM_UnLockMouse: Boolean;
begin
    UnHookWindowsHookEx(hMouseHook); (* Uninstall mouse hook *)
    hMouseHook := 0;
    Result := True;
end;
end.

----------------------------------------------

作者：

toofy45 (不耻下问)	★☆☆☆☆	-
	盒子活跃会员

2004/2/5 17:43:55

4楼：

请教一下，你把键盘给锁了，怎么给它解锁呀！
----------------------------------------------
-勉而好学，不耻下问

信息

登陆以后才能回复