Voy pegado!!

[ecfisa]

Hola nicktdigo.

Creo que el error está en que te sobran unas comillas.

Vos escribiste:

   COMANDO:= '%SYSTEMROOT%\System32\sc create ' +
                      NOMBRE + 
                      ' binpath= "' + 
                      (RUTA)+
                      '" start= disabled';

Y debería ser:

   COMANDO:= '%SYSTEMROOT%\System32\sc create ' + 
                      NOMBRE + 
                      ' binpath= ' + 
                      (RUTA)+
                      ' start= disabled';

Pero es una opinión, ya que no lo puedo probar...

Saludos.

[nicktdigo]

Buenas,

ese no es el error porque. Esas comillas es para que la ruta esté entre comillas, sino no la coge el comando. Además, antes no me salía el error. Esa parte está exactamente igual que antes, el error me lo da en la linea
WinExec(PChar(COMANDO), SW_NORMAL);

Si la quito, el programa se ejecuta y me escribe en el label el comando con la ruta.

He mirado en otros foros y, según he entendido, el comando WinExec es para poner la ruta del comando, no? Creo que no funciona con variables. Igual estoy diciendo una cagada, pero si pongo el comando de esta manera:
WinExec(PChar('COMANDO'), SW_NORMAL); Con las comillas, no me da el error al ejecutar el programa, pero evidentemente no hace lo que quiero.

[ecfisa]

Hola de nuevo.

En las pruebas que hice con WinExec (de las que te puse algunas como ejemplo), jamás me dió error de typecast (conversión).

Otra cosa que se me ocurre que podrías probar, es declarar la variable COMANDO de tipo PChar (var COMANDO: PChar) y así evitar la conversión en la función WinExec.
Si siguiera saliendo el error de conversión todavía, realmente no sé que estaría pasando puesto que no habría ningún tipo de conversión en esa línea.
Aunque seguramente eso me orientaría a investigar más como se usa sc.exe ...

Saludos

[nicktdigo]

Empezado por ecfisa

Hola de nuevo.

En las pruebas que hice con WinExec (de las que te puse algunas como ejemplo), jamás me dió error de typecast (conversión).

Otra cosa que se me ocurre que podrías probar, es declarar la variable COMANDO de tipo PChar (var COMANDO: PChar) y así evitar la conversión en la función WinExec.
Si siguiera saliendo el error de conversión todavía, realmente no sé que estaría pasando puesto que no habría ningún tipo de conversión en esa línea.
Aunque seguramente eso me orientaría a investigar más como se usa sc.exe ...

Saludos

No funciona:

Begin
COMANDO:= '%SYSTEMROOT%\System32\sc create ' + NOMBRE + ' binpath= "' + (RUTA)+'" start= disabled';
Edit3.text:=COMANDO;
Winexec(PChar(COMANDO),SW_SHOWNORMAL);

Ahora, al poner COMANDO como PCHAR, me sale un error en la línea primera (donde se le da valor a COMANDO).
"[Error] Unit1.pas(60); Incompatible types: 'String' and 'PChar'."

Ya he probado a poner las otras también como PChar y no funciona...

[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.

[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í.

[ecfisa]

Hola.

No, no lo creo. Ya que probe concatenando también.

Yo me inclinaría a pensar que el problema lo genera el ejecutable Project2.exe,
y la excepción se manifiesta en la línea en que es invocado por WinExec...

Te explico el por qué de esta suposición:
El código que he visto y probado no provoca errores de conversión, ergo el error
debe estar en lo que no he visto...

Saludos.