Screen.Width //yatay çözünürlük
Screen.Height //dikey çözünürlük
MessageDlg('Şu anda ' + IntToStr( Screen.Width ) +' x '+IntToStr( Screen.Height )+' çözünürlükte çalışıyorsunuz',mtInformation, [mbOk], 0 );

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat