Prueba algo así:
Código Delphi
[-]
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
[-]
try
GetMem(lpServiceArgVectors, SizeOf(PChar)* 3);
PStrArray(lpServiceArgVectors)^[0] := PChar('Lunes');
PStrArray(lpServiceArgVectors)^[1] := PChar('Martes');
PStrArray(lpServiceArgVectors)^[2] := PChar('Miercoles');
StartService(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...