delphi
编程技巧
源代码在线查看： 一个很cool的api介绍 (2001年4月3日).txt
一个很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('计算机是高频机');
还有其它功能请看帮助
