频道分类

Delphi 如何确定屏幕分辨率

作者:admin 来源: 日期:2020/2/10 20:11:06 人气: 标签:

 
有两种方法可以确定屏幕的高度和宽度。

使用全局Screen变量
uses
  Forms;
...
Screen.Height { Screen height in pixels }
Screen.Width  { Screen width in pixels  }
...

使用Windows API GetSystemMetrics()函数

此功能在不使用VCL的应用程序(例如控制台应用程序)中很有用。

uses
  Windows;
...
GetSystemMetric(SM_CXSCREEN) { Screen height in pixels }
GetSystemMetric(SM_CYSCREEN) { Screen width in pixels  }
...