unithooktype.pas

Delphi写的屏幕取词程序

unit UnitHookType;

interface

uses windows, messages;

const
  MaxStringLen = 100;
  MAXBUF = 100;
  WM_MOUSEPT = WM_USER + 1138;
  MappingFileName = 'Mapping File GetWord16';

type
  PPointer = ^Pointer;
  TShareMem = packed record
    hMainWnd: HWND; {主应用窗口}
    hHookWnd: HWND; {鼠标所在窗口}
    pMouse: TPoint; {鼠标信息}
    fStrMouseQueue: array[0..MaxStringLen] of Char; {鼠标信息串}
    nTimePassed: integer; {鼠标暂停时间}
    bCanSpyNow: Boolean; {开始取词}
    {钩子函数句柄}
    Text: array[0..MAXBUF] of Char; {返回所取的字符串}
    fTimerID: Cardinal;
  end;
  PShareMem = ^TShareMem;

implementation

end.