Zitat von
Mazel:
Kennt jemand eine Lösung die in dieser Funktion bei liegt? Sonst müsste ich über den Weg aus der Library
Standarddrucker ermitteln ein Vergleich anlegen um den Drucker zu ermitteln. Über
WMI konnte man das reicht einfach auslesen.
Warum benutzt Du nicht folgende Funktion :
Delphi-Quellcode:
function GetDefaultPrinter: string;
var
ResStr: array[0..255] of Char;
begin
GetProfileString('Windows', 'device', '', ResStr, 255);
Result := StrPas(ResStr);
end;
Die liefert Dir auch unter Windows XP und 2000 den Standard-Drucker.