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
