unithooktype.~pas

windows win200 32位取词

unit UnitHookType;

interface

uses windows, messages;

const
    MaxStringLen = 100;
    WM_MOUSEPT = WM_USER + 1138;
    MappingFileName = 'GetWord32 for 9x NT 2000';
type
    fBeginPaint=0;
    fGetWindowDC=1;
    fGetDC=2;
    fCreateCompatibleDC=3;
    fTextOutA=4;
    fTextOutW=5;
    fExtTextOutA=6;
    fExtTextOutW=7;
    fDrawTextA=8;
    fDrawTextW=9;
    PPointer = ^Pointer;
    TShareMem = packed record
        hProcWnd: HWND; {主应用窗口句柄}
        hHookWnd: HWND; {鼠标所在窗口}
        pMouse: TPoint; {鼠标信息}
        DCMouse,DCCompatible: HDC;
        fTimerID: integer;
        fStrMouseQueue: array[0..MaxStringLen] of Char; {鼠标信息串}
        nTimePassed: integer; {鼠标停留的时间}
        bCanSpyNow: Boolean; {开始取词}
        Text: array[0..MaxStringLen] of Char; {字符串}
    end;
    PShareMem = ^TShareMem;

implementation

end.