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.