혁신적이면서 상당히 광범위하고 간간히 전문적인 상식과 진실에 기초한 정신과 이노의 본격 아나키 블로그

Posted
Filed under 이노/Programmings

스크린 정보를 찾아보려고 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;

2016/02/23 10:49 2016/02/23 10:49