Printer.GetPrinter ??

[ascotlx]

Moin Liste,

ich habe da ein kleines Verständnis Problem:

ich möchte mir dem Anschluss eines Druckers anzeigen lassen, dies möchte
ich aber nicht über die Registry tun. Ich habe dazu Printer.GetPrinter genommen
und lasse mir nun die Variablen ausgeben die mir diese Prozedur liefert (Device, Driver, Port)
nur steht in Port nichts drin. Das Device wird angezeit, der Rest ist leer.

Delphi-Quellcode:

    ...
    type
    ...
    PrinterSetupDialog1: TPrinterSetupDialog;
    ...
    uses Printers;
    ....
    procedure TForm1.FormCreate(Sender: TObject);
    var
      ADevice, ADriver, APort: array [0..255] of Char;
      ADeviceMode: THandle;

    begin
    //  PrinterSetupdialog1.Execute;
      Printer.PrinterIndex := Printer.PrinterIndex;
      Printer.GetPrinter( ADevice, ADriver, APort, ADeviceMode );

      Label1.Caption := ADevice;
      Label2.Caption := ADriver;
      Label3.Caption := APort;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      close;
    end;

... und nun kommt's, wenn ich die Zeile:
    PrinterSetupdialog1.Execute; mit einbringe, bekomme ich den Port, aber nicht den Driver (ist mir derzeit aber
auch nicht so wichtig, mein Focus sitzt auf dem Port).

Warum muss ich einen Dialog öffnen um an die gewünschten Informationen zu kommnen.
Ist das nun ein Feature oder ein Bug ??
Kann mir jemand helfen, oder sagen ... das is' so ??!

Gruss und besten Dank
ascotlx