Bilgisayar Çözünürlüğü Öğren

Bilgisayar çözünürlüğü öğrenmek için;

procedure TForm5.Button1Click(Sender: TObject);

begin

ShowMessage('Çözünürlük: '+IntToStr( Screen.Width ) +' x '+ IntToStr( Screen.Height )); 

end;

end.