GetKeyboardType

//聲明:
get keyboard type(
n type flag:integer { 0:keyboard type；1:鍵磐子類型；2:功能鍵個數}
):整數；
//示例:
ProcedureForm1。FormCreate(發件人:to object)；
var
i:整數；
List:TStringList；
begin
List:= TStringList。創建；
列表。Add('IBM PC/XT或兼容(83鍵)鍵磐')；
列表。add(' Olivetti“ICO”(102鍵)鍵磐))；
列表。Add('IBM PC/AT (84鍵)或類似鍵磐')；
列表。Add('IBM增強型(101/102鍵)鍵磐')；
列表。添加(“諾基亞1050和類似鍵磐”)；
列表。添加(“諾基亞9140和類似的鍵磐”)；
列表。Add('日文鍵磐')；
I:= get keyboard type(0)；
show message(List[I-1])；{考試#大提示此処返廻:IBM增強型(101/102鍵)鍵磐}
I:= get Keyboard Type(1)；
show message(IntToStr(I))；{這是廠商自定義的數據，此処返廻:0 }
I:= get keyboard type(2)；
show message(IntToStr(I))；{ return:12；意思是F1..F12}
列表。免費；
end；

位律師廻複