Systemeinstellung 120 DPI herausfinden

[toms]

Delphi-Quellcode:

function GetScreenDPI: Integer;
var
  dc: hdc;
  dpi: Integer;
begin
  // Handle auf einen "Device Context" (DC) für den Bildschirm ermitteln
  dc := GetDC(0);
  try
    dpi := GetDeviceCaps(dc, LOGPIXELSX);
    Result := dpi;
  finally
    ReleaseDC(0, dc);
  end;
end;