精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>键盘信息

主题:键盘信息
发信人: showskyws(示天)
整理人: teleme(2001-05-08 12:36:12), 站内信件
键盘信息 


 case getkeyboardtype(0) of  //获取键盘类型 
    1: buffer:='  键盘: IBM PC/XT或兼容类型(83键)'; 
    2: buffer:='  键盘: Olivetti "ICO"(102键)'; 
    3: buffer:='  键盘: IBM PC/AT(84键)'; 
    4: buffer:='  键盘: IBM增强型(101或102键)'; 
    5: buffer:='  键盘: Nokia 1050'; 
    6: buffer:='  键盘: Nokia 9140'; 
    7: buffer:='  键盘: Japanese'; 
  end; 

//获取键盘功能键数目 
  memo1.lines.add(' 功能键数目: 
  '+inttostr(getkeyboardtype(2))); 
//获取鼠标按键数目 
  memo1.Lines.add(' 鼠标:  
  '+inttostr(getsystemmetrics(SM_CMOUSEBUTTONS))+'键'); 
globalmemorystatus(meminfo); //获取系统内存数量 
  memo1.lines.add('   物理内存: 
  '+inttostr(meminfo.dwTotalPhys div 1024)+' KB'); 
x:=getsystemmetrics(SM_ARRANGE);  
  //获取系统最小化窗口的起始位置和排列方式 
  y:=x; 
  x:=x and 3; 
  y:=y and 12; 
  case x of 
    ARW_BOTTOMLEFT :  buffer:=' 最小化窗口:自左下角'; 
    ARW_BOTTOMRIGHT : buffer:=' 最小化窗口:自右下角'; 
    ARW_TOPLEFT :  buffer:=' 最小化窗口:自左上角'; 
    ARW_TOPRIGHT : buffer:=' 最小化窗口:自右上角'; 
  end; 
  case y of 
    ARW_LEFT : buffer:=buffer+'横向排列'; 
    ARW_UP :   buffer:=buffer+'纵向排列'; 
    ARW_HIDE : buffer:=buffer+'隐藏'; 
  end; 
  memo1.lines.add(buffer);


----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
欢迎光临我的个人主页:示天工作室 


网易北京社区 DELPHI版 版副发贴印 
               

[关闭][返回]