var
  i: Integer;
  p: P_PRINTER_INFO_5;
  ABytesNeeded: DWord;
  PH:THandle;
begin
  ListBox1.Items.Clear;
  ListBox2.Items.Clear;
  for i := 0 to Printer.Printers.Count - 1 do
  begin

    ph:=0;
    OpenPrinter(PWideChar(Printer.Printers[I]),PH,nil);
    if PH<>0 then
    begin
      GetPrinter(PH, 5, nil, 0, @ABytesNeeded);
      GetMem(p,ABytesNeeded);
      GetPrinter(PH, 5, p, ABytesNeeded, @ABytesNeeded);
      if getlasterror <> 0 then
        raiselastoserror;

      if ((p^.Attributes and PRINTER_ATTRIBUTE_LOCAL) <> 0) then
      begin
          //если он локальный
        ListBox1.Items.add(p^.pPrinterName+' | '+ p^.pPortName);
      end
      else
        ListBox2.Items.add(p^.pPrinterName+' | '+ p^.pPortName);

      FreeMem(p);
    end;
    ClosePrinter(ph);
  end;
end;

      GetMem(p,10240);
      GetPrinter(PH, 5, p, 10240, @ABytesNeeded);