Sobre la función StartService y sus parámetros

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

Prueba algo así:

Código Delphi [-]
  // El array de PChar y el puntero que lo apunta
  type
    PStrArray = ^TStrArray;
    TStrArray = array[0..2] of PChar;

La variable para el parámetro

Código Delphi [-]
var
  lpServiceArgVectors: PChar;

Rellenar los parámetros, la llamada y liberar

Código Delphi [-]
  // proteccion para liberar
  try
    // Supongamos 3 parametros
    GetMem(lpServiceArgVectors, SizeOf(PChar)* 3);
    PStrArray(lpServiceArgVectors)^[0] := PChar('Lunes');
    PStrArray(lpServiceArgVectors)^[1] := PChar('Martes');
    PStrArray(lpServiceArgVectors)^[2] := PChar('Miercoles');
    // Arrancar el servicio
    StartService({Handle}123456, 3, lpServiceArgVectors);
  finally
    FreeMem(lpServiceArgVectors);
  end;

Un saludo.

EDITO: Tarde, tarde, tarde,... pasé tres horas con el mensaje abierto y ya veo que lo tenéis encarrilado...