Sobre la función StartService y sus parámetros

[[seoane]]

Empezado por dec

No puedo probar que funcionan los parámetros realmente

Teniendo un delphi a mano no hay nada que no se pueda hacer Crea un proyecto nuevo un "Service Application" y en el evento OnExecute coloca esto:

Código Delphi [-]
procedure TService2.ServiceExecute(Sender: TService);
var
  i: integer;
begin
  for i:= 1 to Self.ParamCount - 1 do
    OutputDebugString(PChar(Self.Param[i]));
end;

Compila e instala el servicio. Ahora te preguntaras como puedes ver el resultado, para eso utiliza este programa de Mark Russinovich. Cuando ejecutes el servicio, en el DebugView aparecerán los parámetros con que lo has iniciado.