一个很cool的api介绍 (2001年4月3日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 25 行

一个很cool的api介绍 (2001年4月3日) 

网友更新  分类:Win API   作者:阎磊  推荐:yanlei   阅读次数:603  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
showmessage('鼠标键数:'+floattostr(GetSystemMetrics(SM_CMOUSEBUTTONS)));//0表示没有鼠标
showmessage('光标的x:'+floattostr(GetSystemMetrics( SM_CXCURSOR)));
showmessage('光标的y:'+floattostr(GetSystemMetrics(SM_CYCURSOR)));
showmessage('屏幕有效尺寸:'+floattostr(GetSystemMetrics(SM_CXFULLSCREEN))+'*'+floattostr(GetSystemMetrics(SM_CYFULLSCREEN)));
showmessage('水平滚动条的高度:'+floattostr(GetSystemMetrics(SM_CXHSCROLL)));
showmessage('菜单的高度:'+floattostr(GetSystemMetrics(SM_CYMENUSIZE)));
showmessage('分辨率:'+floattostr(GetSystemMetrics(SM_CXSCREEN))+'*'+floattostr(GetSystemMetrics(SM_CYSCREEN)));
showmessage('标题栏的高度:'+floattostr(GetSystemMetrics(SM_CYCAPTION)));
IF GetSystemMetrics(SM_SWAPBUTTON)>0 then
showmessage('鼠标左右键交换')
else
showmessage('鼠标左右键没有交换');
IF GetSystemMetrics(SM_SLOWMACHINE)>0 then
showmessage('计算机低频机')
else
showmessage('计算机是高频机');
还有其它功能请看帮助