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;
0條評論