DPI-Einstellung abfragen / ändern

[adeptus]

Zitat von 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;

Ok, das funktioniert so weit, danke! Ich habe aber keine "SetDeviceCaps" Funktion gefunden... Darum ging's mir eigentlich vorrangig. Ich würde gerne die DPI-Einstellung in einer Batch-Datei ändern kurz bevor ein entsprechendes Programm welches 120dpi braucht aufgerufen wird und nach Beendigung des Selben wieder 96 einstellen...