Как узнать размеры экрана
Чтобы узнать размеру экрана в пикселах, нужно выполнить такой код:
uses
SysUtils, Windows;
var
Hor, Ver: Integer;
DesctopHandle: HWND;
DesctopDC: HDC;
begin
DesctopHandle := GetDesktopWindow;
DesctopDC := GetDC(DesctopHandle);
try
// Разрешение в пикселах по горизонтали.
Hor := GetDeviceCaps(DesctopDC, HORZRES);
// Разрешение в пикселах по вертикали.
Ver := GetDeviceCaps(DesctopDC, VERTRES);
finally
if ReleaseDC(DesctopHandle, DesctopDC) = 0 then
RaiseLastOSError;
end;
end;
|
Чтобы узнать размеры экрана в миллиметрах, нужно выполнить такой код:
uses
SysUtils, Windows;
var
Hor, Ver: Integer;
DesctopHandle: HWND;
DesctopDC: HDC;
begin
DesctopHandle := GetDesktopWindow;
DesctopDC := GetDC(DesctopHandle);
try
// Ширина экрана в миллиметрах.
Hor := GetDeviceCaps(DesctopDC, HORZSIZE);
// Высота экрана в миллиметрах.
Ver := GetDeviceCaps(DesctopDC, VERTSIZE);
finally
if ReleaseDC(DesctopHandle, DesctopDC) = 0 then
RaiseLastOSError;
end;
end;
|
|