main.pas

屏幕取词的小例子 是Delphi下深入Windows核心编程 的一个经典例子 虽然简单 却是很实用

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,thunk;
const MessageID = WM_User + 100;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
//function mouseProc(code:integer;w:integer;l:longint):bool;export;
var
  Form1: TForm1;
    idhook:longint;
  formok:bool;
implementation

{$R *.DFM}
 function OpenGetKeyHook(sender : HWND;MessageID : WORD) : BOOL; external 'GetKey.DLL'; 
 function CloseGetKeyHook: BOOL; external 'GetKey.DLL';


procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.caption='开始' then
  begin
     if OpenGetKeyHook(Form1.Handle,MessageID) then
        Button1.caption:='结束';
  end
  else begin
     if CloseGetKeyHook then
        Button1.caption:='开始';
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Button1.caption<>'开始' then
      Button1Click(Sender);
end;

end.