Alterar ServiceStartName
11/08/2004
0
Necessito fazer com q dois Serviços iguais funcionem na mesma maquina, mas ele me dá um erro dizendo que já existe um serviço com esse mesmo nome.
Já alterei o ServiceStartName através de um INI e ai ele me fala q o nome da conta é inválido, inexistente ou a senha não é válida para a conta especificada.
Sei q por padrão ele cria o nome conforme as configurações do usuário logado.
Alguém poderia me dar uma luz de como corrigir esse problema??
Obrigado, Evandro
Evandro_covre
Posts
11/08/2004
Evandro_covre
Para quem desejar saber como proceder é o seguinte:
No Evento BeforeInstall é necessário alterar as propriedades NAME e DISPLAYNAME do Serviço
Ficando como no exemplo abaixo:
procedure TOpera.ServiceBeforeInstall(Sender: TService);
begin
Self.Name := ´TESTE´;
Self.DisplayName:= ´TESTE´;
end;
Ai se desejar é só ler de algum INI esse nome e Boa!!! é só rodar, hehehehe
Aquele abraço, Evandro
22/11/2016
Fockink Ltda
O 'Self.DisplayName' estou conseguindo alterar, vc fez alguma outra configuração ?
13/09/2019
Alvaro Vieira
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
Leia mais em https://stackoverflow.com/questions/18599201/service-does-not-start
Clique aqui para fazer login e interagir na Comunidade :)