valeu!! mto obrigado!!!! funcionou 100%!!!!!!!!!!!!!!!
t agradeço mto!!
:-)
----- Original Message -----
From: Consultores Software
To: delphi-br@yahoogrupos.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]>:
> 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 <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]<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]
