Delphi调用WinAPI: GetKeyboardType - 获取键盘的类型信息

Delphi调用WinAPI: GetKeyboardType - 获取键盘的类型信息2012-03-31 cnblogs 万一//声明:

GetKeyboardType（
 nTypeFlag: Integer {0:键盘类型; 1:键盘子类型; 2:功能键数量}
）: Integer;

//举例:

procedure TForm1.FormCreate（Sender: TObject）;
var
 i: Integer;
 List: TStringList;
begin
 List := TStringList.Create;
 List.Add（"IBM PC/XT or compatible （83-key） keyboard"）;
 List.Add（"Olivetti "ICO" （102-key） keyboard"）;
 List.Add（"IBM PC/AT （84-key） or similar keyboard"）;
 List.Add（"IBM enhanced （101/102-key） keyboard"）;
 List.Add（"Nokia 1050 and similar keyboards"）;
 List.Add（"Nokia 9140 and similar keyboards"）;
 List.Add（"Japanese keyboard"）;
 i := GetKeyboardType（0）;
 ShowMessage（List[i-1]）;  {我这里返回: IBM enhanced （101/102-key） keyboard}
 i := GetKeyboardType（1）;
 ShowMessage（IntToStr（i））; {这是厂商自定义数据, 这里返回: 0}
 i := GetKeyboardType（2）;
 ShowMessage（IntToStr（i））; {返回: 12; 就是指 F1..F12}
 List.Free;
end;