Porta de impressão

Delphi

14/07/2006

Estou tento um problema com uma função que retorna informações da impressora.
No windos 98 os dois trechos de código abaixo funcionam corretamente retornando o nome e a porta de impressão, mas no windows xp somente é retornado o nome da impressora.
Alguém conhece um outro meio de retornar o nome a e porta de impressão ?

function RetornaImpresora: string;
var
   Device : array[0..255] of char;
   Driver : array[0..255] of char;
   Port : array[0..255] of char;
   hDMode : THandle;

begin
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   result := Device + ´ na porta ´ + Port;
end;

ou

Printer.Printers[printer.PrinterIndex]



Lab

Lab

Curtidas 0

Respostas

Massuda

Massuda

14/07/2006

Dê uma olhada [url=http://forum.clubedelphi.net/viewtopic.php?t=62545]neste tópico[/url].


GOSTEI 0
POSTAR