Colocar a aplicação como um serviço do windows
Prezados Colegas,
preciso urgentemente colocar uma aplicação que já está pronta para rodar como um serviço no windows e não sei como fazê-lo, eu sei que é no application service, mas a partir daí nao consegui fazer mais nada, já procurei em diversos sites livros e todos só dizem : Use o application service...mas estou sei evolução nenhuma...alguém por favor que já tenha feito pode me ajudar ?
Grato
Lourival Reis
preciso urgentemente colocar uma aplicação que já está pronta para rodar como um serviço no windows e não sei como fazê-lo, eu sei que é no application service, mas a partir daí nao consegui fazer mais nada, já procurei em diversos sites livros e todos só dizem : Use o application service...mas estou sei evolução nenhuma...alguém por favor que já tenha feito pode me ajudar ?
Grato
Lourival Reis
Lourival.reis
Curtidas 0
Respostas
Alves
09/10/2003
Desculpe, minha ignorancia, mas explica melhor...
Por acaso seria, colocar no registro para executar junto com Win???
Por acaso seria, colocar no registro para executar junto com Win???
GOSTEI 0
Lourival.reis
09/10/2003
sim, porém o delphi tem o conceito disso como Service Application, existe até quando vc vai criar um novo projeto new\others\service application, porém não consigo utilizar...
GOSTEI 0
Alves
09/10/2003
Sera que Isto não Ajudaria ???
Isso Cria Uma chave no Registro. Q vai executar quando o win For Iniciado.
Coloque no Form.Create.
Isso Cria Uma chave no Registro. Q vai executar quando o win For Iniciado.
Coloque no Form.Create.
Var
S, S2 : String;
begin
Reg := TRegIniFile.Create(´Programa´);
S := ExtractFileDir(Application.ExeName); // Extrai o Path do Programa
S2 := ExtractFileName(Application.ExeName); // Extrai o Nome
S := S + ´\´ + S2;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.Openkey (´Software\Microsoft\Windows\CurrentVersion´,false);
reg.WriteString(´Run´, Programa´, s);
end;
GOSTEI 0
Alves
09/10/2003
Esqueci...
Inclua na Clausula uses --> Registry
Inclua na Clausula uses --> Registry
GOSTEI 0
Beppe
09/10/2003
Tem a função RegisterAsService na unit Comobj, mas não sei se o Delphi exige a chamada.
Ataliba
Ataliba
GOSTEI 0
Lourival.reis
09/10/2003
Vou tentar as 2 opçoes...e lhes aviso amanhã...por enquanto grato...
GOSTEI 0