Fórum Porta da Impressora #204899

function CorrentPrinter :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;