PureBasic Forums - English

Posted: **Thu Jun 27, 2002 11:22 pm**

Code updated for 5.20+

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