uhookvars.pas

来自「键盘钩子程序及控件, C++ Builder 和DELPHI可用」· PAS 代码 · 共 38 行

{*****************************************************************************
 * UnitName:  UHookVars
 * Version:   1.1
 * Created:   24/03/2005
 * Updated:   14/03/2006
 * Purpose:   WH_SHELL Hook Dll
 * Developer: BITLOGIC Software
 * Email:     [e-mail]
 * WebPage:   http://www.bitlogic.co.uk
 *****************************************************************************}

{*****************************************************************************
  See UShellHook.pas for more information.
*****************************************************************************}

unit UHookVars;

interface

uses Windows, Messages;

const
  MMFName = 'MMF_BITLOGIC_SHELLHOOK11';  { Unique Name for the MMF }
  HOOKLIBNAME = 'shellhook.dll';         { Name of the Hook DLL file }
  WM_SHELLHOOKMSG: DWORD = WM_USER+211;

type
 PMMFData = ^TMMFData;
 TMMFData = record
    NextHook : HHOOK;
    WinHandle : HWND;
    MsgToSend : DWORD;
 end;

implementation

end.