Sobre la función StartService y sus parámetros

[dec]

Hola,

Vale... error mío... el código que pusiste es correcto Seoane, compila perfectamente, lo que ocurre es que estaba declarando las variables tal que así:

Código Delphi [-]
var
  argv, p: PChar;

Cuando tú lo indicaste correctamente:

Código Delphi [-]
var
  argv, p: ^PChar;

Todo correcto, pues. No puedo probar que funcionan los parámetros realmente, pero, sí puedo pasar parámetros "a ver qué pasa" sin que ahora se caiga el programa... ¡gracias otra vez, pues!

[[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.

[Neftali [Germán.Estévez]]

Empezado por seoane

..utiliza este programa de Mark Russinovich.

Buen programa...
(SysInternals, como no... )