[dec]

Hola,

Seoane, seguro que estoy haciendo algo mal, porque en la línea:

Código Delphi [-]
P^:= PChar(Params[i]);

Me "dice" el compilador que no son compatibles ambos tipos...

Por otro lado, ¿esto otro funcionaría? Porque compilar compila y un Servicio sin argumentos lo inicia bien, pero, no he probado si funcionaría como se espera en un Servicio con parámetros...

Código Delphi [-]
{...}

var
  argsv := array of PChar;
  FArgumentos: TStringList;  

{...}

if (FArgumentos.Count > 0) then begin
  SetLength(argsv, FArgumentos.Count);
  for i := 0 to FArgumentos.Count-1 do
    argsv[i] := PChar(FArgumentos[i]);
  end;
  StartService(hServicio, FArgumentos.Count, PChar(argsv));
end;

¿O es una burrada?

EDITO: Je, je, je... bueno... no puedo probarlo "realmente", pero, sí puedo incluir un par de parámetros "a ver qué pasa"... y lo que pasa es que empiezan a salir ventanas de error a diestro y siniestro... una detrás de otra y sin parar... "Access violation"...