Cita:
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.