procedure TForm1.Button1Click(Sender:TObject);<br>var<br> i:integer;<br> Mon:TMonitor;<br>begin<br> for i:=0 to Screen.MonitorCount-1 do<br> begin<br> Mon:=Screen.Monitors;<br> if not Mon.Primary then Continue;<br> //do ...<br>// Mon.Width;<br> // Mon.Height;<br>// Mon.WorkareaRect<br> break;<br> end;<br>end;