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...