Nunca realizé una aplicación como servicio, pero supongo que podrías
ejecutar la línea de comando así:
Código:
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:
Código:
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.