Fórum sera que essa ninguem sabe!!!!!!!! #147120

Estou usando este comando para pegar a porta da impressora padrao
do windows 95/98


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.

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?