Fórum Nome da máquina dona da Impressora #283152

function DonasDasImpressoras: TStrings;
var
  A, I: Integer;
  S: String;
begin
  Result := TStringList.Create;
  for I := 0 to (Printer.Printers.Count - 1) do
  begin
    S := Printer.Printers[I];
    A := Pos(´\\´, S);
    if  not (A = 0) then
    begin
      Delete(S, A, 2);
      A := Pos(´\´, S);
      if not (A = 0) then
      begin
        S := Copy(S, 1, (A-1));
        Result.Add(Printer.Printers[I] + ´ instalada em ´ + S);
      end;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items := DonasDasImpressoras;
end;