instalar programa delphi como serviço
boa tarde, alguém sabe faço pra instalar programa delphi como serviço no windows?
desde já agradeço!!!
desde já agradeço!!!
Rodrigo Pereira
Curtidas 0
Respostas
Natanael Ferreira
28/07/2017
Veja se os links ajudam:
https://www.devmedia.com.br/criando-um-windows-service/7867
https://drgarcia1986.wordpress.com/2013/05/02/criando-um-servico-do-windows-no-delphi/
http://theclub.com.br/Restrito/Revistas/201002/cria1002.aspx
GOSTEI 0
Natanael Ferreira
28/07/2017
Outro link:
https://rogeriomolina.com.br/2012/08/23/transformando-um-arquivo-exe-em-servico-no-windows/
GOSTEI 0
Alvaro Vieira
28/07/2017
Se você precisar instalar o mesmo serviço mais de uma vez, ou seja, o mesmo exe terá nomes diferentes no serviço, faça o seguinte:
procedure TMyService.ServiceCreate(Sender: TObject);
begin
if (System.ParamCount >= 1) and not CharInSet(ParamStr(1)[1], SwitchChars) then
Name := ParamStr(1);
end;
Assim você pode utilizar os seguintes comandos para criar os serviços (os espaços após o = são necessários):
sc create myservice1 binpath= "c:\\MyService\\ServiceApp.exe myservice1" displayname= "Serviço 1"
sc create myservice2 binpath= "c:\\MyService\\ServiceApp.exe myservice2" displayname= "Serviço 2"
Observe que o padrão c:\\MyService\\ServiceApp.exe -install não vai funcionar.
Leia mais em https://stackoverflow.com/questions/18599201/service-does-not-start
procedure TMyService.ServiceCreate(Sender: TObject);
begin
if (System.ParamCount >= 1) and not CharInSet(ParamStr(1)[1], SwitchChars) then
Name := ParamStr(1);
end;
Assim você pode utilizar os seguintes comandos para criar os serviços (os espaços após o = são necessários):
sc create myservice1 binpath= "c:\\MyService\\ServiceApp.exe myservice1" displayname= "Serviço 1"
sc create myservice2 binpath= "c:\\MyService\\ServiceApp.exe myservice2" displayname= "Serviço 2"
Observe que o padrão c:\\MyService\\ServiceApp.exe -install não vai funcionar.
Leia mais em https://stackoverflow.com/questions/18599201/service-does-not-start
GOSTEI 0