Delphi调用WinAPI: GetSystemMetrics - 获取系统度量等数值信息


本文整理自网络,侵删。

 

GetSystemMetrics(
  nIndex: Integer {参数, 详见下表}
 ): Integer;
 
举例 - 获取屏幕分辨率:var
  cx,cy: Integer;
 begin
  {通过 GetSystemMetrics 函数获取屏幕分辨率}
  cx := GetSystemMetrics(SM_CXSCREEN);
  cy := GetSystemMetrics(SM_CYSCREEN);
  ShowMessageFmt('Width:%d; Height:%d', [cx,cy]);
  {通过 Screen 对象获取屏幕分辨率}
  cx := Screen.Width;
  cy := Screen.Height;
  ShowMessageFmt('Width:%d; Height:%d', [cx,cy]);
 end;
 
可选参数:
 
SM_CXSCREEN     = 0;
 SM_CYSCREEN     = 1;
 SM_CXVSCROLL     = 2;
 SM_CYHSCROLL     = 3;
 SM_CYCAPTION     = 4;
 SM_CXBORDER     = 5;
 SM_CYBORDER     = 6;
 SM_CXDLGFRAME    = 7;
 SM_CYDLGFRAME    = 8;
 SM_CYVTHUMB     = 9;
 SM_CXHTHUMB     = 10;
 SM_CXICON      = 11;
 SM_CYICON      = 12;
 SM_CXCURSOR     = 13;
 SM_CYCURSOR     = 14;
 SM_CYMENU      = 15;
 SM_CXFULLSCREEN   = $10;
 SM_CYFULLSCREEN   = 17;
 SM_CYKANJIWINDOW   = 18;
 SM_MOUSEPRESENT   = 19;
 SM_CYVSCROLL     = 20;
 SM_CXHSCROLL     = 21;
 SM_DEBUG       = 22;
 SM_SWAPBUTTON    = 23;
 SM_RESERVED1     = 24;
 SM_RESERVED2     = 25;
 SM_RESERVED3     = 26;
 SM_RESERVED4     = 27;
 SM_CXMIN       = 28;
 SM_CYMIN       = 29;
 SM_CXSIZE      = 30;
 SM_CYSIZE      = 31;
 SM_CXFRAME      = $20;
 SM_CYFRAME      = 33;
 SM_CXMINTRACK    = 34;
 SM_CYMINTRACK    = 35;
 SM_CXDOUBLECLK    = 36;
 SM_CYDOUBLECLK    = 37;
 SM_CXICONSPACING   = 38;
 SM_CYICONSPACING   = 39;
 SM_MENUDROPALIGNMENT = 40;
 SM_PENWINDOWS    = 41;
 SM_DBCSENABLED    = 42;
 SM_CMOUSEBUTTONS   = 43;
 SM_SECURE      = 44;
 SM_CXEDGE      = 45;
 SM_CYEDGE      = 46;
 SM_CXMINSPACING   = 47;
 SM_CYMINSPACING   = 48;
 SM_CXSMICON     = 49;
 SM_CYSMICON     = 50;
 SM_CYSMCAPTION    = 51;
 SM_CXSMSIZE     = 52;
 SM_CYSMSIZE     = 53;
 SM_CXMENUSIZE    = 54;
 SM_CYMENUSIZE    = 55;
 SM_ARRANGE      = 56;
 SM_CXMINIMIZED    = 57;
 SM_CYMINIMIZED    = 58;
 SM_CXMAXTRACK    = 59;
 SM_CYMAXTRACK    = 60;
 SM_CXMAXIMIZED    = 61;
 SM_CYMAXIMIZED    = 62;
 SM_NETWORK      = 63;
 SM_CLEANBOOT     = 67;
 SM_CXDRAG      = 68;
 SM_CYDRAG      = 69;
 SM_SHOWSOUNDS    = 70;
 SM_CXMENUCHECK    = 71;
 SM_CYMENUCHECK    = 72;
 SM_SLOWMACHINE    = 73;
 SM_MIDEASTENABLED  = 74;
 SM_MOUSEWHEELPRESENT = 75;
 SM_CMETRICS     = 76;
 SM_XVIRTUALSCREEN  = 76;
 SM_YVIRTUALSCREEN  = 77;
 SM_CXVIRTUALSCREEN  = 78;
 SM_CYVIRTUALSCREEN  = 79;
 SM_CMONITORS     = 80;
 SM_SAMEDISPLAYFORMAT = 81;
 SM_IMMENABLED    = 82;
 SM_CXFOCUSBORDER   = 83;
 SM_CYFOCUSBORDER   = 84;
 SM_REMOTESESSION   = $1000;

 


相关阅读 >>

Delphi 自动复制到指定目录的代码

Delphi 中将tmemorystream转换为'string'

Delphi 备份恢复剪切板

Delphi判断字符串是否为数字

Delphi ios 保持设备开机状态

Delphi 如何让程序在按了 android 的 back 键后不关闭当前 from 或者不 app 退出

Delphi获取闲置时间

Delphi 不重复运行外部程序exe

Delphi 检测服务器地址是否有效

Delphi中转向语句break,continue,exit的作用

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...