firemonkey 得到屏幕信息

最新推荐文章于 2020-04-08 18:43:14 发布

weixin_30488085

最新推荐文章于 2020-04-08 18:43:14 发布

阅读量148

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/tk-del/p/3372612.html

本文介绍了一种使用Delphi枚举显示监视器的方法，并通过创建一个监视器类来捕获所有连接到系统的显示器。展示了如何在 TFormVedio 的 FormShow 事件中调用 EnumDisplayMonitors 函数来获取所有显示器的信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 type
　 TO_MONITOR = class
    hm: HMONITOR;
  end;

function EnumMonitorsProc(hm: HMONITOR; dc: HDC; r: PRect; Data: Pointer): Boolean; stdcall;
var
  L: TList;
  M: TO_MONITOR;
begin
  L := TList(Data);
  M := TO_MONITOR.Create;
  M.hm:= hm;
  L.Add(M);
  Result := True;
end;

procedure TFormVedio.FormShow(Sender: TObject);
var
  FMonitors: Tlist;
  l_Handle: HMONITOR;
  rect: trect;
  MonInfo: TMonitorInfo;
begin
  FMonitors := TList.Create;
  EnumDisplayMonitors(0, nil, @EnumMonitorsProc, LongInt(FMonitors));
  MonInfo.cbSize := SizeOf(MonInfo);
  GetMonitorInfo(1, @MonInfo);
  rect := MonInfo.rcMonitor;
  if FMonitors.Count > 1 then
  self.SetBounds(rect.Left, rect.Top, rect.Width, rect.Height);
  FMonitors.Free;
end;
//从D7的VCL源码中提取的

转载于:https://www.cnblogs.com/tk-del/p/3372612.html