+ added the win16api journalling support functions

git-svn-id: trunk@31819 -

rtl/win16/winprocsh.inc

@@ -1229,3 +1229,7 @@ function DefHookProc(nCode: SmallInt; uParam: WPARAM; dwParam: LPARAM; lphhook:
 function DefHookProc(nCode: SmallInt; uParam: WPARAM; dwParam: LPARAM; lphhook: TFarProc): LRESULT; external 'USER';
 function UnhookWindowsHook(idHook: SmallInt; hkprc: HOOKPROC): BOOL; external 'USER';
 function UnhookWindowsHook(idHook: SmallInt; hkprc: TFarProc): BOOL; external 'USER';
+
+{ Journalling support }
+
+function EnableHardwareInput(fEnableInput: BOOL): BOOL; external 'USER';

rtl/win16/wintypes.inc

@@ -2657,3 +2657,29 @@ const
   HCBT_KEYSKIPPED   = 7;
   HCBT_SYSCOMMAND   = 8;
   HCBT_SETFOCUS     = 9;
+
+{ Journalling support }
+
+  WH_JOURNALRECORD   = 0;
+  WH_JOURNALPLAYBACK = 1;
+
+{ Journalling hook codes }
+  HC_GETNEXT         = 1;
+  HC_SKIP            = 2;
+  HC_NOREMOVE        = 3;
+  HC_NOREM           = HC_NOREMOVE;
+  HC_SYSMODALON      = 4;
+  HC_SYSMODALOFF     = 5;
+
+type
+{ Journalling message structure }
+  PEVENTMSG = ^EVENTMSG;
+  NPEVENTMSG = ^EVENTMSG; near;
+  LPEVENTMSG = ^EVENTMSG; far;
+  EVENTMSG = record
+    message: UINT;
+    paramL: UINT;
+    paramH: UINT;
+    time: DWORD;
+  end;
+  TEventMsg = EVENTMSG;