Criar Um Icone Do Sistema Na Barra De Tarefas

[jeancainelli]

Prezados amigos, gostaria de pedir a ajuda de vocês...

Como faço para mostrar o Estado do Sistema na Barra de Tarefas do Windows ???

Como aquela que apareçe por Ex : Barra de Volume, QuickTime(em execução)... ao lado do relógio do Windows.

Preciso fazer um sistema que quando estiver conectado, apareça um tipo de ícone, e quando estiver desconectado, apareça outro tipo....

Obrigado pela atenção,

Ate +

[MartinsBios]

Colega!

você pode utilizar os componentes prontos para isso, esse ícone chama-se tryicon, e a Rx-Lib tem, existem outras bibliotecas de componentes q dispõem desse componente também, vale dar uma conferida.

boa sorte.

[jeancainelli]

Prezado amigo... Dei uma pesquizada, consegui o componente, mas não sai do chão... você tem algum exemplo que possa me mostrar..

Valeu pela atenção, obrigado + 1 vez....

[MartinsBios]

Prezado amigo... Dei uma pesquizada, consegui o componente, mas não sai do chão... você tem algum exemplo que possa me mostrar..

você não conseguiu criar nada com o componente?

vou te mandar um exemplo feito com RxLib, OK!

posta teu e-mail aqui.

[jeancainelli]

Meu e-mail é jc@gampnet.com.br,

Obrigado, ate +

[Capablanca]

Eu amo este fórum por causa disso... Valeu MartinsBios!

[MartinsBios]

Te enviei o exemplo agora pouco....

é um exemplo simples de trayicon, você vai melhorá-lo, para exibir o form quando o exemplo este em modo de execução, vá no OnCreate do Form e mude o Application.ShoeFormMain:-False para True ou remova a linha, a função deste comando é ocultar o form ok!

T [+]...

[jeancainelli]

Valeu mesmo.......

[jeancainelli]

Consegui Instalar o Pacote e abrir o Exemplo,mas quando vou compilar, da um rro na linha 7,

"file not found RxHook.DCU"

Que sera isso???

[Ewerton]

Consegui Instalar o Pacote e abrir o Exemplo,mas quando vou compilar, da um rro na linha 7,

"file not found RxHook.DCU"

Que sera isso???

Ele não está encontrando o arquivo RxHook.DCU

Ele veio compactado? Caso seja sim, talvez seja algum problema no momento que você descompactou ele, ou talvez você pode ter apagado ele sem querer.

[jeancainelli]

Prezado amigo, ele não veio compactado...

Talvés a instalação não foi bem sucedida.... Tem que mover algum arquivo durante a instalação do pacote???

[jeancainelli]

Hum... Funcionou, só não entendi, porque tenho que copiar os arquivos que faltam para a pasta do projeto????

[s3c]

Olá, você não precisa copiar os arquivos, basta você adicionar seu path em:

Tools/Environment Options/Library/Library path

[MartinsBios]

Olá, você não precisa copiar os arquivos, basta você adicionar seu path em:

Tools/Environment Options/Library/Library path

Verdade!!

basta indicar o path (caminho dos arquivos da lib)...

se precisar de mais alguma coisa, é só falar....

valeu! s3c, Ewerton, Capablanca e Jeancainelli

valeu mesmo

[jeancainelli]

E não é que "Funfio memo" !!!!!!!!!!

Valeu .......

[Ewerton]

valeu! s3c, Ewerton, Capablanca e Jeancainelli

Estamos a disposição...

[jeancainelli]

E tem como alterar o ícone, quando precionar em um Botão????

Obrigado ATE +

[Progr'amador]

Olá jeancainelli.

Tenho um exemplo aki que altera o icone do Form.

Nesse exemplo usei dois buttons e um ImageList.

Adicionei no ImageList dois Icones e no dos buttons esse código:

procedure TForm1.BtnDesativaClick(Sender: TObject);
begin
   Form1.Icon := nil;
   ImageList1.GetIcon(1,Form1.Icon);
end;

procedure TForm1.BtnAtivaClick(Sender: TObject);
begin
   Form1.Icon := nil;
   ImageList1.GetIcon(0,Form1.Icon);
end;

Deve funcionar pro seu caso tambem.

Abs.

[jeancainelli]

Valeu a Dica, consegui fazer o que precisava....

Ate +

[Guest Guest]

Valeu a Dica, consegui fazer o que precisava....

Estaremos sempre a disposição para ajudarmos os colegas...