procedure TForm1.FormCreate(Sender: TObject); var I : Integer; begin ComboBox1.Items.Clear; For I:= 1 to Printer.Printers.Count do Begin if Pos('LPT', printer.Printers.Strings[I-1]) > 0Then ComboBox1.Items.Add('LPT1') Else if Pos('\\', printer.Printers.Strings[I-1]) > 0 Then ComboBox1.Items.Add(Copy(printer.Printers.Strings[I-1], Pos('\\', printer.Printers.Strings[I-1]), length(printer.Printers.St
com o Printer.Printers.Count <- Vc pode contar quantas impressoras existem instaladas. E como vc pode ver acima o printer.Printers.Strings vc pode listar via um TSTRINGS. Ai é só usar a criatividade, Como acima nos preenchemos um combo-box com todos as impressoras instaladas.. Valeu!! --- Em delphi-br@yahoogrupos.com.br, André Luis de Oliveira <[EMAIL PROTECTED]> escreveu > > Alguém conhece alguma função q verifica se tem alguma impressora instalada? > > > > -------------------------------------------------------------------------------- > André Luis de Oliveira > Programador de Sistemas > E-mail: [EMAIL PROTECTED] / [EMAIL PROTECTED] > Telefone: (19) 3731-4019 > Celular: (19) 9703-9018 > > > Uniodonto Campinas > Av. Brasil, 200 - Campinas/SP > Telefone: (19) 3731-4000 > Visite nosso site: www.uniodontocamp.com.br > E-mail: [EMAIL PROTECTED] > > > [As partes desta mensagem que não continham texto foram removidas] > -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html