截获键盘事件（截获F8功能健）

最新推荐文章于 2022-09-27 11:56:07 发布

easyboot

最新推荐文章于 2022-09-27 11:56:07 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： hook integer button keyboard forms function

本文链接：https://blog.youkuaiyun.com/easyboot/article/details/7482200

Delphi 专栏收录该内容

54 篇文章

订阅专栏

本文介绍了一个使用Delphi编写的简单应用程序，该程序通过设置全局键盘钩子来捕获和处理键盘输入事件。具体实现了当按下特定键时触发自定义操作的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }

  end;
//function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;


var
  Form1: TForm1;
  hook: HHOOK; {定义一个钩子句柄}
implementation

{$R *.dfm}
//var

 {实现键盘钩子回调函数}
function KeyHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;stdcall;
begin

 // ShowMessage('aaabbb '+inttostr(wParam)+' '+inttostr(lParam));
  if (wParam = 119) and(lParam>0) then
  begin
    ShowMessage('aaa  '+inttostr(wParam)+' '+inttostr(lParam)+' '+inttostr(nCode));
  Beep; {每拦截到字母 A 会发声}
  end;
  Result := CallNextHookEx(hook, nCode, wParam, lParam);
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
 hook := SetWindowsHookEx(WH_KEYBOARD, @KeyHook, 0, GetCurrentThreadID);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnhookWindowsHookEx(hook);
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 //Key_Enter
end;

end.