Das Name stimmt aber nicht, denn die Funktion liefert nicht den Faktor zurück,
es sei denn du meintest z.B. SCALINGFACTORX anstatt LOGPIXELSX,
oder beispielsweise
Delphi-Quellcode:
function GetScalingFactor: Single;
Result := GetDeviceCaps(hdc, LOGPIXELSX) / 96;
PS: Die drei verwendeten
API sollten eigentlich keine Exceptions werfen, sondern einen entsprechenden Rückgabewert ausgeben,
weswegen per se das Try-Finally unnötig wäre, aber egal ... besser zuviel, als zu wenig.
(und falls doch, dann ist alles sowas vom im A, so dass eh alles egal wäre)