스크린 정보를 찾아보려고 C++ 하던 버릇대로 GetsystemMetrix부터 뒤져보다가 우연히 발견
그래 이런건 클래스로 지원해줘야지
procedure TfrmMonitorTestMain.btnMonitorClick(Sender: TObject); var Screen : TScreen; Monitor : TMonitor; I : Integer; begin Screen := TScreen.Create(Self); try for I := 0 to Screen.MonitorCount -1 do begin Monitor := Screen.Monitors[I]; mmInfo.Lines.Add(Format(‘Monitor %d: Primary – %s’, [I, BoolToStr(Monitor.Primary, True)])); { mmInfo.Lines.Add(Format(#9+ ‘Left: %d’, [Monitor.Left])); mmInfo.Lines.Add(Format(#9+ ‘Top: %d’, [Monitor.Top])); mmInfo.Lines.Add(Format(#9+ ‘Width: %d’, [Monitor.Width])); mmInfo.Lines.Add(Format(#9+ ‘Height: %d’, [Monitor.Height])); } mmInfo.Lines.Add(Format(#9+ ‘BoundsRect : (%d, %d, %d, %d)’, [Monitor.BoundsRect.Left, Monitor.BoundsRect.Top, Monitor.BoundsRect.Right, Monitor.BoundsRect.Bottom])); mmInfo.Lines.Add(Format(#9+ ‘WorkareaRect: (%d, %d, %d, %d)’, [Monitor.WorkareaRect.Left, Monitor.WorkareaRect.Top, Monitor.WorkareaRect.Right, Monitor.WorkareaRect.Bottom])); end; finally Screen.Free; end; end;