Drucker über WMI unter Win2000 fehlerhaft

[Mazel]

Hallo DP'ler,

ich nutze WMI für mein Programm MyPC um verschiedene Informationen zu erhalten. Darunter auch Informationen zum Drucker. Nun kommt es aber nur bei Win200 zu einem Problem, eine Fehlermeldung "Nicht gefunden". Ich vermute, dass damit gemeint ist, dass die Klasse nicht gefunden wurde die für die Informationen zum Drucker nötig ist, diese Klasse ist die Win32_Printer.

Gibt es da eine andere Klasse unter Win2000?

Ich werde heute hoffentlich noch mit der WMIDemo von himitsu an den mir möglichen Win2000 Rechner testen, Problem ist, dass das der Arbeitsrechner meines Vaters ist und ich da nur schwer heran komme.

Gruß
Mazel

[RWarnecke]

Nutze einfach diesen Code-Library Beitrag. Dieser funktioniert zuverlässig unter Windows 2000.

Edit : Die Win32_Printer gibt es. Nur gibt es dort weniger Informationen. Deshalb steht zum Beispiel die Caption an Position 6 unter Windows XP und unter Windows 2000 an Position 5.

[Mazel]

Ich danke dir, das funktioniert. Ob ein Drucker der Standartdrucker ist, scheint man nur unter Win95/98/ME ermitteln zu können, denn in der MSDN steht dass PRINTER_ATTRIBUTE_DEFAULT nur unter 95/98/Me den Standartdrucker liefert.

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.

[RWarnecke]

Zitat:

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.

[Mazel]

Hey Super funktioniert. Wo sammelst du diese Funktionen? :wink:

Gruß
Mazel

[RWarnecke]

Überall, wo ich Sie finde.