Voy pegado!!

[nicktdigo]

Empezado por ecfisa

Hola nicktdigo.

Mirá, opté por duplicar en mi disco la ruta que presentas en tu ejemplo creando las carpetas necesarias
(C:\Documents and Settings\Intel\Escritorio\ Aplicacion como servicio).

Lo que no puedo, por razones obvias, es hacer lo mismo con "Project2.exe", dado que:
1) No tengo ese archivo.
2) No sé que acción deseas que realize.

Pero como el problema que tenés es que el código genera excepciones;
el ejemplo que te agrego sirve igual. ( se ejecuta sin arrojar ningún error ).

procedure TForm1.Button1Click(Sender: TObject);
var
  Comando: string;
begin
  Comando:= 'sc create Servicio1 binpath= "C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\notepad.exe" start= disabled';
  WinExec(PChar(Comando),SW_NORMAL);
end;

Como verás, es casi una copia fiel de tu línea, excepto claro está, por el ejecutable.

Bueno, a mi no me genera excepción de ningún tipo, ni de conversión ni de incompatibilidad de tipos...

Así que lamento no poder ayudarte más.


Saludos.

¿Puede ser que no te genere la excepcíón porque no estás concatenando varias cadenas? Es decir, yo en COMANDO meto La cadena del comando, más el nombre que le quiero poner al servicio más la ruta donde está el archivo. No sé si el problema puede venir por ahí.