请教各位,用delphi如何锁定键盘,只保留一个键可以使用,
按这个键后,解除键盘的锁定。请指教,先谢了。
按这个键后,解除键盘的锁定。请指教,先谢了。
解决方案 »
- 在delphi程序里,根据sql server2000和oracle的两张表,根据f1字段关联,在sql server2000里合并成一张表,怎么写代码?
- 怎样在报表里面循环打印呢?
- 1st class 3000 / 4000 pro for Delphi 7
- 各位兄弟,大家好!哪位可以提供类似阿里巴巴贸易通即时通讯的软件。
- 有关Delphi 5.X ADO/MTS/COM+高级程序设计篇的问题
- 高手指教,--------急急?
- 分发BDE时,请问如何手工注册BDE?在注册表中需要注册那些键值?最好能详细一些,谢谢!
- 关于ACCESS进行更新的问题
- 怎样才能实现以下功能?
- 一个关于dblistbox的问提???????????
- 用delphi7+ado+FastReport开发的应用程序怎样打包发布啊?
- 一个关于类的构建的问题
uses
Wintypes, WinProcs;//键盘上锁
function DisableKeyboard: Boolean;
//键盘解锁
procedure EnableKeyboard;implementationvar
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; // KbHookfunction 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.
unit Unit3;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;function DisableKeyBoard: Boolean;
begin
oldHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HINSTANCe, 0);
Result := oldHook <> 0;
end;procedure EnableKeyBoard;
begin
if oldHook <> 0 then
begin
UnhookWindowsHookEx(oldHook);
oldHook := 0;
end;end;end.