Nome da máquina dona da Impressora

Delphi

27/05/2005

Olá colegas, já pesquisei no fórum, mas não encontrei muita coisa.

Precisava saber o nome da máquina dona da impressora, caso ela seja uma impressora da rede.

Alguém tem uma idéia de como resolver?


Fsflorencio

Fsflorencio

Curtidas 0

Respostas

Vinicius2k

Vinicius2k

27/05/2005

Colega,

Não conheço uma forma ´limpa´ de se fazer isso... esta ser ´gambiarra´, mas funciona... :D
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;


T+


GOSTEI 0
Fsflorencio

Fsflorencio

27/05/2005

Tava procurando uma forma limpa, mas o jeito é improvisar!

Obrigado.


GOSTEI 0
POSTAR