Fórum capturar a porta da impressora padrao no windows2000,XP,NT. #146886

Estou usando este comando para pegar a porta da impressora padrao
do windows 95/98
[color=red:d8885cd4ea]

procedure TForm1.Button2Click(Sender: TObject);
Var
Driver, port, Device: String;
DeviceMode : THandle;

begin
SetLength(Driver, 255);
SetLength(Port, 255);
SetLength(Device, 255);
Printer.GetPrinter (PChar(Device), PChar(Driver), PChar(Port), DeviceMode);
Label4.Caption := Device;
Label5.Caption := Driver;
Label6.Caption := Port;
end;

end.[/color:d8885cd4ea]

Quando coloco para rodar em ambiente windows 2000, NT, XP ele não consegue capturar a porta da impressora padrao como faço

Desculpe pelo Deus! da ultima mensagem ok? :?