DPI-Einstellung abfragen / ändern

[DeddyH]

Wie, auf die DPI schließen? Bei mir kommt 96 heraus (stimmt ja auch).

Delphi-Quellcode:

procedure ShowDPI;
var DC: hDC;
begin
  DC := GetDC(HWND_DESKTOP);
  try
    ShowMessage(inttostr(GetDeviceCaps(DC,LOGPIXELSY)));
  finally
    ReleaseDC(DC,HWND_DESKTOP);
  end;
end;