На главную

Назад

function Hor:integer; // Разрешение в пикселах по горизонтали.
var
DesctopHandle: HWND;
 DesctopDC: HDC;
begin
 DesctopHandle := GetDesktopWindow;
 DesctopDC := GetDC(DesctopHandle);
 try
 // Разрешение в пикселах по горизонтали.
 Hor := GetDeviceCaps(DesctopDC, HORZRES);
finally
 if ReleaseDC(DesctopHandle, DesctopDC) = 0 then
 RaiseLastOSError;
 end;
end;

function Ver:integer; // Разрешение в пикселах по вертикали.
var
DesctopHandle: HWND;
 DesctopDC: HDC;
begin
 DesctopHandle := GetDesktopWindow;
 DesctopDC := GetDC(DesctopHandle);
 try
// Разрешение в пикселах по вертикали.
 Ver := GetDeviceCaps(DesctopDC, VERTRES);
 finally
 if ReleaseDC(DesctopHandle, DesctopDC) = 0 then
 RaiseLastOSError;
 end;
end;