Aplicação rodando como serviço ou no sistray

1,072 views
Skip to first unread message

Rodrigo Sebben

unread,
Mar 12, 2010, 8:59:13 AM3/12/10
to dug...@googlegroups.com
Pessoal, alguem tem algum exemplo para fazer uma aplicação em delphi 7 rodar no trayicon ou como um serviço do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa não pode aparecer durante a execução, ele deve rodar em segundo plano..

Agradeço aos que me ajudarem nessa dúvida!

Rodrigo Sebben

Wecsley Fey

unread,
Mar 12, 2010, 9:12:03 AM3/12/10
to DUG-RS
 Rodrigo,
 
 Eu tenho um exemplo que faz as 2 coisas juntas ! É um serviço, mas que possui alguns formulários de interação e que fica acoplado a barra de tarefas do Windows.
 
 O conceito de serviços é de não ter interação com formulários, rodar como serviço mesmo. O que acontece é que teimaram comigo dizendo que não havia maneira de construir um serviço com tais interações, então fiz este exemplo na época.... hehe
 
 Não estou conseguindo adicionar arquivos no diretório do grupo. Vou falar com o Newton/Daniel e assim que adicionar o exemplo lá, aviso.
 
 
 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação
 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplicação rodando como serviço ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conheça o novo site de I Love Messenger.

Newton Michel de Oliveira

unread,
Mar 12, 2010, 9:16:20 AM3/12/10
to dug...@googlegroups.com
Rodrigo,
Na biblioteca jedi lib tem o componente q faz isto

Em 12/03/10, Rodrigo Sebben<hyug...@gmail.com> escreveu:

> --
> Você recebeu esta mensagem porque está inscrito no "DUG-RS -
> Delphi Users Group Rio Grande do Sul" em Grupos do Google.
> Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade
> Delphi do Rio Grande do Sul
> Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
> Para cancelar a sua inscrição neste grupo, envie um e-mail para
> dug-rs-un...@googlegroups.com
> Para ver mais opções, visite este grupo em
> http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Enviado do meu celular


Newton Michel de Oliveira www.nmooliveira.com.br
Mobile 55 51 92358577

Consultor de TI
Embarcadero Delphi 2009 Programming

Public Profile
http://www.linkedin.com/in/newtongaucho

Group Admin
http://www.dug-rs.org

Carlos Henrique Agnes

unread,
Mar 12, 2010, 9:23:56 AM3/12/10
to dug...@googlegroups.com

Dae Rodrigo e WF!

Sobre a quest�o de servi�o ou aplicativo de background, acho que primeiro deve ser definido se tu realmente precisa da aplica��o como servi�o, ou seja, que funcione mesmo sem a presen�a de um usu�rio logado. Se for este o caso, o servi�o deve ser constru�do sem a presen�a de formul�rios. A quest�o de ter uma interface para configura��o do servi�o deve ser feita atrav�s de um programa W32 normal, a parte, que "converse" de alguma forma com o servi�o. Foi este o teu caso WF?

Era isto.

Abra�o,
Tatu!


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
http://www.aquasoft.com.br
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:12:03 -0300, Wecsley Fey escreveu:

�Rodrigo,
�
�Eu tenho um exemplo que faz as 2 coisas juntas ! ɠum servi�o, mas que possui alguns formul�rios de intera��o e que fica acoplado a barra de tarefas do Windows.
�
�O conceito de servi�os � de n�o ter intera��o com formul�rios,�rodar como servi�o mesmo.�O que acontece�� que�teimaram comigo dizendo que n�o havia maneira de�construir um servi�o com tais intera��es, ent�o fiz este exemplo na �poca.... hehe
�
�N�o estou conseguindo adicionar arquivos no diret�rio do grupo. Vou falar com o Newton/Daniel�e assim que adicionar o exemplo l�, aviso.
�
�
�Att,
�Wecsley Fey
�Analista�de Sistemas
�Aquasoft Tecnologia da Informa��o
�(51) 3022-3188 - Porto Alegre/RS - Brasil
�Parceira Embarcadero no RS
�http://www.wecsleyfey.com
�http://www.aquasoft.com.br




�
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplica��o rodando como servi�o ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Pessoal, alguem tem algum exemplo para fazer uma aplica��o em delphi 7 rodar no trayicon ou como um servi�o do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa n�o pode aparecer durante a execu��o, ele deve rodar em segundo plano..

Agrade�o aos que me ajudarem nessa d�vida!

Rodrigo Sebben

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conhe�a o novo site de I Love Messenger.

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

Rodrigo Sebben

unread,
Mar 12, 2010, 9:28:09 AM3/12/10
to dug...@googlegroups.com
Na real eu preciso que ele rode no trayicon pois o usuário que tenha a senha de admin, tem que ter acesso as configurações do backup....ouvi falar de alguns componente que fazer isso, tipo o cooltrayicon, mas queria ver se não tem como fazer isso sem precisar usar componentes.

Em 12 de março de 2010 11:23, Carlos Henrique Agnes <cag...@aquasoft.com.br> escreveu:

Dae Rodrigo e WF!

Sobre a questão de serviço ou aplicativo de background, acho que primeiro deve ser definido se tu realmente precisa da aplicação como serviço, ou seja, que funcione mesmo sem a presença de um usuário logado. Se for este o caso, o serviço deve ser construído sem a presença de formulários. A questão de ter uma interface para configuração do serviço deve ser feita através de um programa W32 normal, a parte, que "converse" de alguma forma com o serviço. Foi este o teu caso WF?

Era isto.

Abraço,
Tatu!


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informação
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:12:03 -0300, Wecsley Fey escreveu:

 Rodrigo,
 
 Eu tenho um exemplo que faz as 2 coisas juntas ! É um serviço, mas que possui alguns formulários de interação e que fica acoplado a barra de tarefas do Windows.
 
 O conceito de serviços é de não ter interação com formulários, rodar como serviço mesmo. O que acontece é que teimaram comigo dizendo que não havia maneira de construir um serviço com tais interações, então fiz este exemplo na época.... hehe
 
 Não estou conseguindo adicionar arquivos no diretório do grupo. Vou falar com o Newton/Daniel e assim que adicionar o exemplo lá, aviso.
 
 
 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação
 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplicação rodando como serviço ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Pessoal, alguem tem algum exemplo para fazer uma aplicação em delphi 7 rodar no trayicon ou como um serviço do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa não pode aparecer durante a execução, ele deve rodar em segundo plano..

Agradeço aos que me ajudarem nessa dúvida!

Rodrigo Sebben

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conheça o novo site de I Love Messenger.

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -

Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

Carlos Henrique Agnes

unread,
Mar 12, 2010, 9:31:02 AM3/12/10
to dug...@googlegroups.com

Tem sim, atrav�s de mensagens do Windows. Se achar o exemplo, postarei...


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
http://www.aquasoft.com.br
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:28:09 -0300, Rodrigo Sebben escreveu:

Na real eu preciso que ele rode no trayicon pois o usu�rio que tenha a senha de admin, tem que ter acesso as configura��es do backup....ouvi falar de alguns componente que fazer isso, tipo o cooltrayicon, mas queria ver se n�o tem como fazer isso sem precisar usar componentes.

Em 12 de mar�o de 2010 11:23, Carlos Henrique Agnes <cag...@aquasoft.com.br> escreveu:

Dae Rodrigo e WF!

Sobre a quest�o de servi�o ou aplicativo de background, acho que primeiro deve ser definido se tu realmente precisa da aplica��o como servi�o, ou seja, que funcione mesmo sem a presen�a de um usu�rio logado. Se for este o caso, o servi�o deve ser constru�do sem a presen�a de formul�rios. A quest�o de ter uma interface para configura��o do servi�o deve ser feita atrav�s de um programa W32 normal, a parte, que "converse" de alguma forma com o servi�o. Foi este o teu caso WF?

Era isto.

Abra�o,
Tatu!


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:12:03 -0300, Wecsley Fey escreveu:

�Rodrigo,
�
�Eu tenho um exemplo que faz as 2 coisas juntas ! ɠum servi�o, mas que possui alguns formul�rios de intera��o e que fica acoplado a barra de tarefas do Windows.
�
�O conceito de servi�os � de n�o ter intera��o com formul�rios,�rodar como servi�o mesmo.�O que acontece�� que�teimaram comigo dizendo que n�o havia maneira de�construir um servi�o com tais intera��es, ent�o fiz este exemplo na �poca.... hehe
�
�N�o estou conseguindo adicionar arquivos no diret�rio do grupo. Vou falar com o Newton/Daniel�e assim que adicionar o exemplo l�, aviso.
�
�
�Att,
�Wecsley Fey
�Analista�de Sistemas
�Aquasoft Tecnologia da Informa��o
�(51) 3022-3188 - Porto Alegre/RS - Brasil
�Parceira Embarcadero no RS
�http://www.wecsleyfey.com
�http://www.aquasoft.com.br




�
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplica��o rodando como servi�o ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Pessoal, alguem tem algum exemplo para fazer uma aplica��o em delphi 7 rodar no trayicon ou como um servi�o do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa n�o pode aparecer durante a execu��o, ele deve rodar em segundo plano..

Agrade�o aos que me ajudarem nessa d�vida!

Rodrigo Sebben

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conhe�a o novo site de I Love Messenger.

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

Wecsley Fey

unread,
Mar 12, 2010, 9:40:15 AM3/12/10
to DUG-RS
 Não.
 
 Os conceitos de serviço não são inteiramente fundamentados em execução sem usuário logado. Isto é característica. Vários serviços presentes em nossas máquinas rodam sobre a autenticação do usuário do SO e não do sistema (system).
 
 Você pode criar um serviço no windows e deixar ele presente no tray com os próprios componentes do Delphi, sem necessitar de algo terceiro ou de um aplicativo à parte para configuração. Como disse anteriormente, não é acoselhável, mas é possível. Isto vem de encontro a outra característica de serviços, que é sua execução em forma de monitoramento, ou seja, execução em forma constante.
 
 Rafael, o Daniel me deu uma dica interessante. Publicarei exemplo no Code Central da Embarcadero e depois passo o link para o grupo.
 
 Vou enviar o exemplo para seu e-mail então tu nos retorna se é válido ou não, certo ?
 
 Abraço !

 

 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação
 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
Date: Fri, 12 Mar 2010 11:28:09 -0300
Subject: Re: [dug-rs] Aplicação rodando como serviço ou no sistray

Carlos Henrique Agnes

unread,
Mar 12, 2010, 9:56:35 AM3/12/10
to dug...@googlegroups.com

Beleza WF, algumas id�ias devem ser discutidas, mas se tu diz que d� pra fazer, acredito. Um �nico problema � que o Delphi 7 n�o possui o TTrayIcon nativo, este componetne surgiu no D2006.


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
http://www.aquasoft.com.br
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:40:15 -0300, Wecsley Fey escreveu:

�N�o.
�
�Os conceitos de servi�o n�o�s�o inteiramente fundamentados em execu��o sem usu�rio logado. Isto � caracter�stica.�V�rios servi�os presentes em nossas m�quinas rodam sobre a autentica��o do usu�rio do SO e n�o do sistema (system).
�
�Voc� pode criar um servi�o no windows e deixar ele presente no tray com os pr�prios componentes do Delphi, sem necessitar de algo terceiro ou de um aplicativo � parte para configura��o. Como disse anteriormente, n�o � acoselh�vel, mas � poss�vel. Isto vem de encontro a outra caracter�stica de servi�os, que � sua execu��o em forma de monitoramento, ou seja, execu��o em forma constante.
�
�Rafael, o Daniel me deu uma dica interessante. Publicarei exemplo no Code Central da Embarcadero e depois passo o link para o grupo.
�
�Vou enviar o exemplo para seu e-mail ent�o tu nos retorna se � v�lido ou n�o, certo ?
�
�Abra�o !
�

�Att,
�Wecsley Fey
�Analista�de Sistemas
�Aquasoft Tecnologia da Informa��o
�(51) 3022-3188 - Porto Alegre/RS - Brasil
�Parceira Embarcadero no RS
�http://www.wecsleyfey.com
�http://www.aquasoft.com.br




�
Date: Fri, 12 Mar 2010 11:28:09 -0300
Subject: Re: [dug-rs] Aplica��o rodando como servi�o ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Na real eu preciso que ele rode no trayicon pois o usu�rio que tenha a senha de admin, tem que ter acesso as configura��es do backup....ouvi falar de alguns componente que fazer isso, tipo o cooltrayicon, mas queria ver se n�o tem como fazer isso sem precisar usar componentes.

Em 12 de mar�o de 2010 11:23, Carlos Henrique Agnes <cag...@aquasoft.com.br> escreveu:

Dae Rodrigo e WF!

Sobre a quest�o de servi�o ou aplicativo de background, acho que primeiro deve ser definido se tu realmente precisa da aplica��o como servi�o, ou seja, que funcione mesmo sem a presen�a de um usu�rio logado. Se for este o caso, o servi�o deve ser constru�do sem a presen�a de formul�rios. A quest�o de ter uma interface para configura��o do servi�o deve ser feita atrav�s de um programa W32 normal, a parte, que "converse" de alguma forma com o servi�o. Foi este o teu caso WF?

Era isto.

Abra�o,
Tatu!


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:12:03 -0300, Wecsley Fey escreveu:

�Rodrigo,
�
�Eu tenho um exemplo que faz as 2 coisas juntas ! ɠum servi�o, mas que possui alguns formul�rios de intera��o e que fica acoplado a barra de tarefas do Windows.
�
�O conceito de servi�os � de n�o ter intera��o com formul�rios,�rodar como servi�o mesmo.�O que acontece�� que�teimaram comigo dizendo que n�o havia maneira de�construir um servi�o com tais intera��es, ent�o fiz este exemplo na �poca.... hehe
�
�N�o estou conseguindo adicionar arquivos no diret�rio do grupo. Vou falar com o Newton/Daniel�e assim que adicionar o exemplo l�, aviso.
�
�
�Att,
�Wecsley Fey
�Analista�de Sistemas
�Aquasoft Tecnologia da Informa��o
�(51) 3022-3188 - Porto Alegre/RS - Brasil
�Parceira Embarcadero no RS
�http://www.wecsleyfey.com
�http://www.aquasoft.com.br




�
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplica��o rodando como servi�o ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Pessoal, alguem tem algum exemplo para fazer uma aplica��o em delphi 7 rodar no trayicon ou como um servi�o do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa n�o pode aparecer durante a execu��o, ele deve rodar em segundo plano..

Agrade�o aos que me ajudarem nessa d�vida!

Rodrigo Sebben

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conhe�a o novo site de I Love Messenger.
--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR


--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conhe�a o novo site de I Love Messenger.

--
Voc� recebeu esta mensagem porque est� inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscri��o neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais op��es, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

Carlos Henrique Agnes

unread,
Mar 12, 2010, 10:04:34 AM3/12/10
to dug...@googlegroups.com

Rodrigo,

N�o testei este c�digo, mas pelo que lembro � por a� mesmo (retirado de http://blog.xploiter.com/programming-related-content/delphi-tips/):

{*This code creates a tray icon which when right-clicked, pops up a menu, and
when double-clicked, displays the main form. You simply need to create a new
Delphi project, drop a PopupMenu on the form and copy the event handler
code, copy the WndProc procedure and declaration code (including the
"procedure WndProc...
Begin
...
End;")
and copy the FormCreate code. You will have a system tray icon with your
app's icon, and its title as a tooltip.The form will not have a button on
the taskbar.

This code should work with D3, it works with D2 standard.
*)

unit MainForm;

interface

uses
Windows, ShellAPI, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
Menus;

type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
ShowMainForm1: TMenuItem;
ExitApplication1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure ShowMainForm1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ExitApplication1Click(Sender: TObject);
private
{ Private declarations }
procedure WndProc(var Msg : TMessage); override;
public
{ Public declarations }
IconNotifyData : TNotifyIconData;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
showwindow(Application.Handle, SW_HIDE); {Comment out if you want a taskbar
button}
//Now set up the IconNotifyData structure so that it receives
//the window messages sent to the application and displays
//the application's tips
with IconNotifyData do begin
hIcon := Application.Icon.Handle;
uCallbackMessage := WM_USER + 1;
cbSize := sizeof(IconNotifyData);
Wnd := Handle;
uID := 100;
uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
end;
//Copy the Application's Title into the tooltip for the icon
StrPCopy(IconNotifyData.szTip, Application.Title);
//Add the Icon to the system tray and use the
//the structure and its values
Shell_NotifyIcon(NIM_ADD, @IconNotifyData);

end;

procedure TForm1.WndProc(var Msg : TMessage);
var p : TPoint;
begin
case Msg.Msg of
WM_USER + 1:
case Msg.lParam of
WM_RBUTTONDOWN:
begin
GetCursorPos(p);
PopupMenu1.Popup(p.x, p.y);
end;
WM_LBUTTONDBLCLK: Form1.Show;
end;
end;
inherited;
end;

procedure TForm1.ShowMainForm1Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//when the user clicks the close button in the corner,
//only hide the form, not exit the app.
Action := caNone;
Form1.Hide;
end;

procedure TForm1.ExitApplication1Click(Sender: TObject);
begin
Shell_NotifyIcon(NIM_DELETE, @IconNotifyData);
Application.ProcessMessages;
Application.Terminate;
end;

end.




Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informa��o
http://www.aquasoft.com.br
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Wecsley Fey

unread,
Mar 12, 2010, 1:57:19 PM3/12/10
to DUG-RS


 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação

 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
From: cag...@aquasoft.com.br
Date: Fri, 12 Mar 2010 11:56:35 -0300
To: dug...@googlegroups.com
Subject: RE: [dug-rs] Aplicação rodando como serviço ou no sistray


Beleza WF, algumas idéias devem ser discutidas, mas se tu diz que dá pra fazer, acredito. Um único problema é que o Delphi 7 não possui o TTrayIcon nativo, este componetne surgiu no D2006.


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informação
http://www.aquasoft.com.br
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:40:15 -0300, Wecsley Fey escreveu:

 Não.
 
 Os conceitos de serviço não são inteiramente fundamentados em execução sem usuário logado. Isto é característica. Vários serviços presentes em nossas máquinas rodam sobre a autenticação do usuário do SO e não do sistema (system).
 
 Você pode criar um serviço no windows e deixar ele presente no tray com os próprios componentes do Delphi, sem necessitar de algo terceiro ou de um aplicativo à parte para configuração. Como disse anteriormente, não é acoselhável, mas é possível. Isto vem de encontro a outra característica de serviços, que é sua execução em forma de monitoramento, ou seja, execução em forma constante.
 
 Rafael, o Daniel me deu uma dica interessante. Publicarei exemplo no Code Central da Embarcadero e depois passo o link para o grupo.
 
 Vou enviar o exemplo para seu e-mail então tu nos retorna se é válido ou não, certo ?
 
 Abraço !
 

 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação
 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
Date: Fri, 12 Mar 2010 11:28:09 -0300
Subject: Re: [dug-rs] Aplicação rodando como serviço ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Na real eu preciso que ele rode no trayicon pois o usuário que tenha a senha de admin, tem que ter acesso as configurações do backup....ouvi falar de alguns componente que fazer isso, tipo o cooltrayicon, mas queria ver se não tem como fazer isso sem precisar usar componentes.

Em 12 de março de 2010 11:23, Carlos Henrique Agnes <cag...@aquasoft.com.br> escreveu:

Dae Rodrigo e WF!

Sobre a questão de serviço ou aplicativo de background, acho que primeiro deve ser definido se tu realmente precisa da aplicação como serviço, ou seja, que funcione mesmo sem a presença de um usuário logado. Se for este o caso, o serviço deve ser construído sem a presença de formulários. A questão de ter uma interface para configuração do serviço deve ser feita através de um programa W32 normal, a parte, que "converse" de alguma forma com o serviço. Foi este o teu caso WF?

Era isto.

Abraço,
Tatu!


Carlos Henrique Agnes
Analista de Sistemas / Embarcadero Instructor
Aquasoft Tecnologia da Informação
(51) 3022.3188 - Porto Alegre/RS - Brasil
Parceira Embarcadero no RS




Fri, 12 Mar 2010 11:12:03 -0300, Wecsley Fey escreveu:

 Rodrigo,
 
 Eu tenho um exemplo que faz as 2 coisas juntas ! É um serviço, mas que possui alguns formulários de interação e que fica acoplado a barra de tarefas do Windows.
 
 O conceito de serviços é de não ter interação com formulários, rodar como serviço mesmo. O que acontece é que teimaram comigo dizendo que não havia maneira de construir um serviço com tais interações, então fiz este exemplo na época.... hehe
 
 Não estou conseguindo adicionar arquivos no diretório do grupo. Vou falar com o Newton/Daniel e assim que adicionar o exemplo lá, aviso.
 
 
 Att,
 Wecsley Fey
 Analista de Sistemas
 Aquasoft Tecnologia da Informação
 (51) 3022-3188 - Porto Alegre/RS - Brasil
 Parceira Embarcadero no RS
 http://www.wecsleyfey.com
 http://www.aquasoft.com.br




 
Date: Fri, 12 Mar 2010 10:59:13 -0300
Subject: [dug-rs] Aplicação rodando como serviço ou no sistray
From: hyug...@gmail.com
To: dug...@googlegroups.com

Pessoal, alguem tem algum exemplo para fazer uma aplicação em delphi 7 rodar no trayicon ou como um serviço do windows?
Estou fazendo um programa de backup customizado para um cliente, e esse programa não pode aparecer durante a execução, ele deve rodar em segundo plano..

Agradeço aos que me ajudarem nessa dúvida!

Rodrigo Sebben

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conheça o novo site de I Love Messenger.
--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR


--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Coloque sua foto num tema anos 60, 70 e 80. Conheça o novo site de I Love Messenger. --
Você recebeu esta mensagem porque está inscrito no "DUG-RS -
Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR

--
Você recebeu esta mensagem porque está inscrito no "DUG-RS -

Delphi Users Group Rio Grande do Sul" em Grupos do Google.
Acesse o nosso BLOG em http://www.dug-rs.org e contribua com a comunidade Delphi do Rio Grande do Sul
Para postar neste grupo, envie um e-mail para dug...@googlegroups.com
Para cancelar a sua inscrição neste grupo, envie um e-mail para
dug-rs-un...@googlegroups.com
Para ver mais opções, visite este grupo em
http://groups.google.com.br/group/dug-rs?hl=pt-BR
Transforme-se em personagens engraçados. Conheça o novo site de I Love Messenger.

Jefferson Follmann

unread,
Mar 12, 2010, 7:44:09 PM3/12/10
to dug...@googlegroups.com
Atualmente estava procurando algo do tipo.

Alguém tem alguma coisa em Delphi 7?


2010/3/12 Wecsley Fey <wecsl...@hotmail.com>



--
O único erro da natureza, é a incompetência não doer.
Linux User #490529.
Linux: Live FREE or DIE!

Maurício Lauxen

unread,
Mar 13, 2010, 6:47:59 AM3/13/10
to dug...@googlegroups.com

Eu tenho uma aplicação que fica monitorando o BD para informar ao usuário quando existem atualizações do Sistema utilizando o TRxTrayIcon
Att,

Maurício Lauxen
lau...@gmail.com

Jefferson Follmann

unread,
Mar 13, 2010, 11:16:23 AM3/13/10
to dug...@googlegroups.com
Tem como tu repassar um exemplo?

2010/3/13 Maurício Lauxen <lau...@gmail.com>
Reply all
Reply to author
Forward
0 new messages