idleconst.pas

来自「一个朋友写的delphi的漂亮时钟」· PAS 代码 · 共 36 行

{*******************************************************}
{*            Email: [e-mail]               *}
{*               QQ: 39262884                          *}
{*******************************************************}

unit IdleConst;

interface
  uses Windows;

const
  MouseMappingFileName = 'BAJIU_MouseHookDLL_442C0DB1';
  KeyboardMappingFileName = 'BAJIU_KeyboardHookDLL_442C0DB1';
  MSGMOUSE: PChar = 'MSGMOUSE57D6A971-049B-45AF-A8CD-37E0B706E036';
  MSGKEYDOWN: PChar = 'MSGKEYDOWN57D6A971-049B-45AF-A8CD-37E0B706E036';
  MSGKEYUP: PChar = 'MSGKEYUP442C0DB1-3198-4C2B-A718-143F6E2D1760';

type
  TMouseMappingMem = record
    Handle: DWORD;
    MsgID: DWORD;
    MouseStruct: TMOUSEHOOKSTRUCT;
  end;
  PMouseMappingMem = ^TMouseMappingMem;

  TKeyboardMappingMem = record
    Handle: DWORD;
    MsgID: DWORD;
    KeyCode: DWORD;
  end;
  PKeyboardMappingMem = ^TKeyboardMappingMem;

implementation

end.