function GetScreenDPI: TPoint;
var
DC: HDC;
begin
DC := GetDC(0);
try
Result.X := GetDeviceCaps(DC, LOGPIXELSX);
Result.Y := GetDeviceCaps(DC, LOGPIXELSY);
finally
ReleaseDC(0, DC);
end;
end;
Users browsing this forum: No registered users and 22 guests