hooku.pas

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

unit HookU;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

function EnableHotKeyHook: BOOL; external 'HKTEST.DLL';
function DisableHotKeyHook: BOOL; external 'HKTEST.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
  if EnableHotKeyHook then
    ShowMessage('Keyboard Hook 启动, 按下 Ctrl + B 将叫出「记事本」');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if DisableHotKeyHook then
    ShowMessage('Keyboard Hook 已解除!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Caption:='单击“启动Hook”按钮'+#13+
   '无论你何时按下Ctrl+B键，'+#13'都会接收到响应';
end;

end.