Systemeinstellung 120 DPI herausfinden

[Garby]

Hallo,

ich möchte herausfinden wieviel DPI im System eingestellt wurden.
Also unter Eigenschaften von Anzeige/Einstellungen/Erweitert/Allgemein/Anzeige.

Danke im Voraus

[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;

[Bernhard Geyer]

Delphi-Quellcode:

Screen.PixelsPerInch

[Garby]

Delphi-Quellcode:

Screen.PixelsPerInch

Hat funktioniert, Danke.