[nicktdigo]

Empezado por ecfisa

Nunca realizé una aplicación como servicio, pero supongo que podrías
ejecutar la línea de comando así:

var
  Comando: string;
begin
  Comando:= 'C:\Windows\System32\sc create Servicio1 binpath=' +
            '"C:\Documents and Settings\Intel\Escritorio'+
            '\Aplicacion como servicio\Project2.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL); 
//Habría que probar con SW_SHOWNOACTIVATE...
end;

Funcionó perfectamente con el siguiente valor en Comando:

var
  Comando: string;
begin
   Comando:= 'C:\Windows\System32\cmd.exe' +
                    ' /K CD C:\Documents and Settings';
   WinExcec(PChar(Comando), SW_NORMAL);
end;

Espero te ayude en algo.

Saludos.

Buenas,

no entiendo cómo funciona. Es decir, yo en la variable COMANDO he guardado todo el comando entero con los parámetros y la ruta. Y lo que veo que pones es la ruta del CMD.exe (para que funcione en la consola supongo), pero lo siguiente no lo entiendo. Con eso, de donde toma la ruta y el nombre del servicio que le pongo?

Gracias