firemonkey 得到屏幕信息

 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源码中提取的