Fórum Como pega porta e driver da impressora XP #231980

function TForm1.SelecionaImpressora: String;
var Driver, Device, Port : array[0..79] of char;
    Mode : THandle;
    palav: String;
    i: Integer;
begin
     pdl := TPrintDialog.Create(nil);

     if Printer.Printers.Count > 0 then
       begin
         if pdl.Execute then
           begin
             for i := 0 to 79 do
               Port[i] := 0;
             Printer.GetPrinter(Driver, Device, Port, Mode);
             palav := ´´;
             for i := 0 to 79 do
               palav := palav + Port[i];
             Result := palav;
           end
          else
           Result := ´´;
       end
     else
       begin
         Result := ´´;
         MessageDlg(´Não há uma impressora instalada!´, mtConfirmation, [mbok], 0);
       end;
end;