Cara, leia o código do "Consultores Software" e entenda o que ele codificou.
Se você entender, vc vai perceber que aquilo ali simula um timer. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael Marques Enviada em: sexta-feira, 6 de junho de 2008 13:35 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Serviço não Inicia mas no meu caso terei q usar o Timer, pq d uma em uma hora terei q enviar registros de um BD pra outro local. ----- Original Message ----- From: Consultores Software To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> Sent: Friday, June 06, 2008 1:19 PM Subject: Re: [delphi-br] Serviço não Inicia No OnExecute, tente fazer algo assim, ao invés de usar Timer : const Segundos = 60; begin while not Terminated do begin Sender.ServiceThread.ProcessRequests(false); // Escreva aqui o que o serviço deve fazer Sleep(Segundos * 1000); end; // while not Terminated Sender.ReportStatus; Para usar o ShowMessage, se não me engano, você deve ir nas propriedades do serviço no painel de controle e permitir que ele interaja com a área de trabalho. 2008/6/6 Rafael Marques <[EMAIL PROTECTED] <mailto:rafael.matriz%40terra.com.br> >: > oi!! > > eu fiz o comando abaixo e funcionou blzz, aparece como registrado e > funcionando na lista de servicos, mas o mesmo n funciona > > eu coloquei só pra testar um Timer com showmessage (d 30 em 30 segundos). > Coloquei pra habilitar o timer no OnExecute. e nada!!! rs > > vc tem ideia do q pode ser?!?!? > > ----- Original Message ----- > From: Consultores Software > To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > <delphi-br%40yahoogrupos.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.ServiceAfterInstall(Sender: TService); > var > Reg: TRegistry; > begin > Reg := TRegistry.Create(KEY_READ or KEY_WRITE); > try > Reg.RootKey := HKEY_LOCAL_MACHINE; > if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\' + Name, false) then > begin > Reg.WriteString('Description', descricao_do_servico); > Reg.CloseKey; > end; > finally > Reg.Free; > end; > end; > > 2008/6/6 Rafael Marques <[EMAIL PROTECTED] > <mailto:rafael.matriz%40terra.com.br> <rafael.matriz%40terra.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: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> > > <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.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 <[EMAIL PROTECTED] > > <mailto:rafael.matriz%40terra.com.br> <rafael.matriz%40terra.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] > > > [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] [As partes desta mensagem que não continham texto foram removidas]
