unithookconst.pas

来自「DELPHI中开发系统钩子大全包括使用DLL和不使用DLL的多种方式.」· PAS 代码 · 共 20 行

unit UnitHookConst;

interface
    uses windows;
const
  MappingFileName='_MyDllMouse';

type
  TShareMem=record
    data1:array [1..2] of DWORD;
    data2:TMOUSEHOOKSTRUCT;
    IfRbutton:boolean;
    buffer:array[0..1024]of char;
  end;
  PShareMem=^TShareMem;
  
implementation

end.