delphi怎么获取显示器分辨率

在Delphi中，你可以通过TScreen对象来获取显示器的分辨率。以下是一个简单的示例代码：

uses
  Windows,
  Graphics;

var
  Screen: TScreen;
  Monitor: TMonitor;
  
begin
  // 获取当前屏幕
  Screen := TScreen.FromDeviceID(Screen.Cursors[0].DeviceID);
  
  // 获取显示器信息
  Monitor := Screen.Monitor;
  var
    Width, Height: Integer;
    
  // 获取分辨率
  Width := Monitor.WorkingArea.Right - Monitor.WorkingArea.Left;
  Height := Monitor.WorkingArea.Bottom - Monitor.WorkingArea.Top;
  
  // 输出分辨率
  ShowMessage('当前显示器分辨率为 ' + IntToStr(Width) + 'x' + IntToStr(Height));
end;

在这个例子中，首先从所有屏幕上选择一个，然后通过`WorkingArea`属性获取显示器的工作区域大小，即实际显示的像素数。