Falls Deine Frage war, wie ermittel ich den DPI Wert, könnte Dir das hier weiterhelfen:
Delphi-Quellcode:
{ hier beginnt eine Delphi methode }
function GetDPI: Integer;
var
DC: hDC;
begin
DC := GetDC(HWND_DESKTOP);
try
Result := GetDeviceCaps(
DC, LOGPIXELSY);
finally
ReleaseDC(
DC, HWND_DESKTOP);
end;
end;
Bei 96 dpi (100%-Skalierung) sollte eine 1 returned werden.