Delphi屏蔽指定热键


本文整理自网络,侵删。

 //以下代码在Delphi7 + XP SP3下测试通过
//button1为注册钩子屏蔽,button2为卸载钩子取消屏蔽F1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
WM_Sock :Integer;
hHandle :HWND;
Hook :HHook;
implementation

{$R *.dfm}
function LowLevelKeyboardProc(vNode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;
type
KbDllHookStruct = record
vkCode:DWord;
ScanCode:DWord;
Flags:DWord;
Time:DWord;
dwExtraInfo:DWord;
end;
var
P:^KbDllHookStruct;
begin
Result := 0;
P := Pointer(LPARAM);
if vNode = HC_ACTION then
begin
case wParam of
WM_KEYDOWN,WM_SYSKEYDOWN,WM_KEYUP,WM_SYSKEYUP:
if p.vkCode = VK_F1 then //判断按下的是不是F1
begin
Result := 1;
end;
end;
if vNode <> 0 then
Result := CallNextHookEx(0,vNode,wParam,lParam);
end;
end;

//注册钩子
procedure TForm1.Button1Click(Sender: TObject);
const
WH_KEYBOARD_LL = 13;
begin
WM_SOCK := 0;
WM_SOCK := RegisterWindowMessage('WM_SOCK');
hHandle := Handle;
Hook := SetWindowsHookEx(WH_KEYBOARD_LL,LowLevelKeyboardProc,hInstance,0);
end;

//卸载钩子
procedure TForm1.Button2Click(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;

end.

相关阅读 >>

Delphi与用windows 7下的用户账户控制(uac)机制

Delphi程序不受windows日期格式的影响

Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

如何为Delphi程序添加事件和事件处理器

干掉360保险箱vb/vc/Delphi 源码

Delphi dll窗体调用解

Delphi 随机程序名

Delphi编程获取系统当前进程、窗口句柄、文件属性

Delphi:取得浏览器地址,网址(支持ie,firefox)

Delphi 拷贝文件夹内所有内容

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...