hooktype.pas

很经典的代码 2004版可以通过 但没有试过以后更高的版本 系统高人指点

unit HookType;

interface

uses
  Windows, Messages;

const
  WM_USERCMD   = WM_APP + 1;
  UC_WINCREATE = WM_APP + 2;
  UC_WINDESTROY= WM_APP + 3;
  BUFFER_SIZE  = 16 * 1024;
  HOOK_MEM_FILENAME = 'MEM_FILE';
type
  TShared = record
    KeyHook  :HHook;
    ShellHook:HHook;
    CallHook :HHook;
    MainWnd  :THandle;
    Moudle   :THandle;
  end;
  PShared = ^TShared;

implementation

end.