+ added the win16api accelerator support functions

git-svn-id: trunk@31788 -

rtl/win16/winprocsh.inc

@@ -1012,3 +1012,10 @@ function SetSysModalWindow(hwnd: HWND): HWND; external 'USER';
 function SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TIMERPROC): UINT; external 'USER';
 function SetTimer(hwnd: HWND; idTimer, uTimeout: UINT; tmprc: TFarProc): UINT; external 'USER';
 function KillTimer(hwnd: HWND; idTimer: UINT): BOOL; external 'USER';
+
+{ Accelerator support }
+function LoadAccelerators(hinst: HINST; lpszTableName: LPCSTR): HACCEL; external 'USER';
+function TranslateAccelerator(hwnd: HWND; haccl: HACCEL; lpmsg: LPMSG): SmallInt; external 'USER';
+{$ifdef VAR_PARAMS_ARE_FAR}
+function TranslateAccelerator(hwnd: HWND; haccl: HACCEL; var msg: MSG): SmallInt; external 'USER';
+{$endif}

rtl/win16/wintypes.inc

@@ -1916,3 +1916,7 @@ type
 
 const
   WM_TIMER = $0113;
+
+type
+{ Accelerator support }
+  HACCEL = THandle;