Skalierungsfaktor Win11 mit Delphi XE ermitteln

[norwegen60]

Hallo,

ich habe einem Laptop ein Bildschirm mit 3840 x 2400 Auflösung und die Skalierung ist auf 225% eingestellt. Jetzt möchte ich genau diese 225% mit einem Delphi XE Programm ermitteln. Dazu habe ich im Net verschiedene Möglichkeiten gefunden aber entweder sie liefen unter Delphi XE nicht oder sie liefern immer 100%
Hier zwei Möglichkeiten die 100% liefern.

laScale.Caption := format('Ratio = %1.3f', [Screen.PixelsPerInch * 100 / 96]);

Delphi-Quellcode:

var
  DC: HDC;
begin
  DC := GetDC(0);
  laScale.Caption := format('Ratio = %1.3f', [GetDeviceCaps(DC, LOGPIXELSX) / 96 *100]);
  ReleaseDC(0, DC);
end;

Hat jemand eine Idee was ich machen muss, dass mir die 225% korrekt angezeigt werden?

Vielen Dank
Gerd