Fórum porta da impressora padrão no Xp #195771

:shock: Caros Colegas,
Eu utilizo em um sistema uma função que verifica a porta da impressora padrão do rWindows, só que esta função não funcionou em nenhuma da maquianas com o rWindows Xp.
A função que utilizo está escrita abaixo

function porta_impressora_padrao :String;
// Retorna a impressora padrão do Windows
// Requer a unit printers declarada na clausula uses da unit
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 := string(port);
end;

Grato a todos, Christiano