Browse Source

+ added the win16api keyboard functions

git-svn-id: trunk@31587 -
nickysn 10 năm trước cách đây
mục cha
commit
09a4efe5d3
1 tập tin đã thay đổi với 10 bổ sung0 xóa
  1. 10 0
      rtl/win16/winprocsh.inc

+ 10 - 0
rtl/win16/winprocsh.inc

@@ -278,3 +278,13 @@ function lstrcat(lpszString1: LPSTR; lpszString2: LPCSTR): LPSTR; external 'KERN
 function lstrlen(lpszString: LPCSTR): SmallInt; external 'KERNEL';
 
 function LoadString(hints: HINST; idResrouce: UINT; lpszBuffer: LPSTR; cbBuffer: SmallInt): SmallInt; external 'USER';
+
+{ Keyboard Driver Functions }
+
+function OemKeyScan(uOemChar: UINT): DWORD; external 'KEYBOARD';
+function VkKeyScan(uChar: UINT): UINT; external 'KEYBOARD';
+function GetKeyboardType(fnKeybInfo: SmallInt): SmallInt; external 'KEYBOARD';
+function MapVirtualKey(uKeyCode, fuMapType: UINT): UINT; external 'KEYBOARD';
+function GetKBCodePage: SmallInt; external 'KEYBOARD';
+function GetKeyNameText(lParam: LONG; lpszBuffer: LPSTR; cbMaxKey: SmallInt): SmallInt; external 'KEYBOARD';
+function ToAscii(wVirtKey, wScanCode: UINT; lpKeyState: LPBYTE; lpChar: LPDWORD; wFlags: UINT): SmallInt; external 'KEYBOARD';