Jak sprawdzić rozdzielczość? (z i bez traya)

Jeżeli chcesz pobrać rozdzielczość całego ekranu, możesz posłużyć się jedną z dwóch możliwości:

var

  Szer , Wys : Integer ;  

begin

  Szer := Screen.Width ;

  Wys := Screen.Height ;

  // lub

  Szer := GetSystemMetrics(SM_CXSCREEN) ;

  Wys := GetSystemMetrics(SM_CYSCREEN) ;

end ;

var

Szer , Wys : Integer ;

begin

Szer := Screen.Width ;

Wys := Screen.Height ;

// lub

Szer := GetSystemMetrics(SM_CXSCREEN) ;

Wys := GetSystemMetrics(SM_CYSCREEN) ;

end ;

Dzięki GetSystemMetrics możemy dowiedzieć się wielu ciekawych rzeczy, odsyłam do Helpa.

Jeżeli chcesz pobrać rozmiar pulpitu (obszar bez traya), to użyj tego kodu:

var

  R : TRect ;

begin

  SystemParametersInfo(SPI_GETWORKAREA , 0 , @R , 0) ;

  Label1.Caption := 'Top: ' + IntToStr(R.Top) + ', Left: ' + IntToStr(R.Left) +

                    ', Bottom: ' + IntToStr(R.Bottom) + ', Right: ' + IntToStr(RRight) ;

var

R : TRect ;

begin

SystemParametersInfo(SPI_GETWORKAREA , 0 , @R , 0) ;

Label1.Caption := 'Top: ' + IntToStr(R.Top) + ', Left: ' + IntToStr(R.Left) +

', Bottom: ' + IntToStr(R.Bottom) + ', Right: ' + IntToStr(RRight) ;

W przesłanym obiekcie TRect zostaną wpisane współrzędne górnego lewego oraz dolnego prawego rogu obszaru roboczego (bez traya). dzięki funkcji SystemParametersInfo możemy zmienić różne ustawienia oraz dowiedzieć się wielu przydatnych rzeczy. Odsyłam do Helpa.

Autor: Iskar