Restored from previous forum. Originally posted by MrVainSCL.
Hi @ all
I dont think that someone of you need this useless code example to get the info about your keyboard, hehe... But here is small example
Code: Select all
;-----------------------------------
;
; PB v3.20 - GetKeyboardType Info
;
; (28-Jun-2002 - 00:45am)
;
;-----------------------------------
;
GetKeyType.b = GetKeyboardType_(0)
GetNumKeys.b = GetKeyboardType_(2)
;
Select GetKeyType
Case 0
KeyType.s = "Unknown keyboard or Keyboard not found"
Case 1
KeyType.s = "IBM PC/XT or compatible (83-key) keyboard" ; FunctionKeys: 10
Case 2
KeyType.s = "Olivetti ICO (102-key) keyboard" ; FunctionKeys: 12 (sometimes 18)
Case 3
KeyType.s = "IBM PC/AT (84-key) Or similar keyboard" ; FunctionKeys: 10
Case 4
KeyType.s = "IBM enhanced (101- Or 102-key) keyboard" ; FunctionKeys: 12
Case 5
KeyType.s = "Nokia 1050 And similar keyboards" ; FunctionKeys: 10
Case 6
KeyType.s = "Nokia 9140 And similar keyboard" ; FunctionKeys: 12
Case 7
KeyType.s = "Japanese keyboard" ; FunctionKeys: Hardware dependent and specified by the OEM
EndSelect
;
MessageBox_ (0,"KeyboardType:"+Chr(10)+KeyType.s+Chr(10)+Chr(10)+"FunctionsKeys:"+Chr(10)+Str(GetNumKeys.b), "Win32 API - GetKeyboardType Info", #MB_ICONINFORMATION|#MB_OK)
;
End
;
;-----------------------------------
PIII450, 256MB Ram, 6GB HD, RivaTNT, DirectX8.1, SB AWE64, Win2000 + all Updates...
greetz
MrVainSCL! aka Thorsten