Olá pessoal seguindo ai essa de serviço.
meu serviço instala normal, mas quando mando iniciar dá a seguinte mensagem:
"O serviço JBServiceMonitor em Computador local foi iniciado e interrompido.
Alguns serviços são interrompidos automaticamente quando não têm trabalho a
fazer, como o serviço Logs e alertas de desempenho".
Alguém sabe porque isso esta acontecendo?
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]
----- Mensagem original ----
De: Rafael Marques <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 6 de Junho de 2008 11:23:38
Assunto: Re: [delphi-br] Serviço não Inicia
valeu!! mto obrigado!!!! funcionou 100%!!!!!!!! !!!!!!!
t agradeço mto!!
:-)
----- Original Message -----
From: Consultores Software
To: [EMAIL PROTECTED] os.com.br
Sent: Friday, June 06, 2008 10:09 AM
Subject: Re: [delphi-br] Serviço não Inicia
Tente colocar a seguinte procedure no evento AfterInstall : (acrescentar
Registry no uses)
procedure TServico.ServiceAft erInstall( Sender: TService);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create( KEY_READ or KEY_WRITE);
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey( '\SYSTEM\ CurrentControlSe t\Services\ ' + Name, false) then
begin
Reg.WriteString( 'Description' , descricao_do_ servico);
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
2008/6/6 Rafael Marques <rafael.matriz@ terra.com. br>:
> apos eu dar o comando de install nao aparece msg nenhuma, o sinistro é q
> em algumas dessas vzs q tentei dar o comando, imediatamente eu dava o Ctrl +
> Alt + Del pra verificar na lista d processos, aí ele apareceria mas sumia da
> lista em 1 ou 2 segundos.
>
>
> ----- Original Message -----
> From: Consultores Software
> To: [EMAIL PROTECTED] os.com.br <delphi-br%40yahoog rupos.com. br>
> Sent: Friday, June 06, 2008 8:35 AM
> Subject: Re: [delphi-br] Serviço não Inicia
>
> Colega, verifique o seguinte:
>
> 1. Após o comando "nome_do_servico /install" deverá aparecer uma mensagem
> dizendo que o serviço foi instalado com sucesso
> 2. Após o passo anterior, vá em Painel de Controle -> Ferramentas
> Administrativas -> Serviços e veja se o serviço está lá. O nome do
> serviço é o mesmo da propriedade DisplayName
> 3. Tente iniciar o serviço. Normalmente, se der erro, o windows mostra uma
> mensagem avisando e gera uma entrada no log de eventos.
>
> 2008/6/6 Rafael Marques <rafael.matriz@ terra.com. br<rafael.matriz%
> 40terra.com. br>
> >:
>
> > Bom Dia
> >
> > estou tentando desenvolver aq um programa, q funcionará como um serviço
> no
> > windows, para pegar dados d um BD. O mesmo não terá forms.
> >
> > meu problema é o seguinte: este serviço não está iniciando no windows.
> > Mesmo eu dando o comando "c:\xxxxx.exe /install", Eu vou ver e n tem nada
> > iniciado. No delphi eu pedi Service Application para desenvolver.
> >
> > alguem sabe o pq ????
> >
> > mto obrigado
> >
> > Rafael
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> ------------ --------- --------- --------- --------- --------- -
> Esta mensagem foi verificada pelo E-mail Protegido Terra.
> Atualizado em 05/06/2008
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
------------ --------- --------- --------- --------- --------- -
Esta mensagem foi verificada pelo E-mail Protegido Terra.
Atualizado em 06/06/2008
[As partes desta mensagem que não continham texto foram removidas]
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
