Voy pegado!!

[ecfisa]

Hola de nuevo nicktdigo.

Ahora estoy un poco confundido de como estás intentando utilizar el contenido de la variable "Comando".
Podrías ponerme un ejemplo literal de lo que te aparece en el Label y que querés que ejecute Windows ?


Saludos.

[nicktdigo]

Empezado por ecfisa

Hola de nuevo nicktdigo.

Ahora estoy un poco confundido de como estás intentando utilizar el contenido de la variable "Comando".
Podrías ponerme un ejemplo literal de lo que te aparece en el Label y que querés que ejecute Windows ?


Saludos.

Buenas ecfisa,

te copio un ejemplo de la variable comando que debe ejecutarse:

sc create Servicio1 binpath= "C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe" start= disabled

Servicio1 es el nombre que le he puesto al servicio, y lo que está entre comillas es la ruta de donde va a coger el .exe para crear dicho servicio. Start=disabled es el parámetro para que el servicio esté por defecto deshabilitado. Eso lo he puesto con 3 radiobuttons (Deshabilitado, Inicio automático e inicio manual)

Gracias!!

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

[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

[ecfisa]

Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:

   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';

Es lo igual que :

 Comando:= 'C:\Windows\System32\cmd.exe /K CD C:\Documents and Settings';

Como te dije antes no he usado el comando "sc", desconozco si su
hubicación está declarada, por lo que especifique la ruta completa
al mismo: 'C:\windows\system32\', anteponiendolo al string de tu
ejemplo. Lo demás sigue igual.

  Comando:='C:\Windows\System32\sc create Servicio1 binpath=' +
           'C:\Documents and Settings\Intel\Escritorio'+
           '\Aplicacion como servicio\Project2.exe start= disabled';

Partí la cadena en tres partes, uniéndolas con "+" para una mayor
legibilidad, pero en realidad es una sóla:

   Comando:='C:\Windows\System32\sc create Servicio1 binpath= 'C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe start= disabled';

Es decir que el parámetro que debes enviar a WinExcec está todo en la
variable "Commando", pero su formato depende del manejo que de ella haga el ejecutable
invocado.

Espero haberte aclarado un poco.

Saludos.

[nicktdigo]

Empezado por ecfisa

Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:

   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';

Es lo igual que :

 Comando:= 'C:\Windows\System32\cmd.exe /K CD C:\Documents and Settings';

Como te dije antes no he usado el comando "sc", desconozco si su
hubicación está declarada, por lo que especifique la ruta completa
al mismo: 'C:\windows\system32\', anteponiendolo al string de tu
ejemplo. Lo demás sigue igual.

  Comando:='C:\Windows\System32\sc create Servicio1 binpath=' +
           'C:\Documents and Settings\Intel\Escritorio'+
           '\Aplicacion como servicio\Project2.exe start= disabled';

Partí la cadena en tres partes, uniéndolas con "+" para una mayor
legibilidad, pero en realidad es una sóla:

   Comando:='C:\Windows\System32\sc create Servicio1 binpath= 'C:\Documents and Settings\Intel\Escritorio\Aplicacion como servicio\Project2.exe start= disabled';

Es decir que el parámetro que debes enviar a WinExcec está todo en la
variable "Commando", pero su formato depende del manejo que de ella haga el ejecutable
invocado.

Espero haberte aclarado un poco.

Saludos.

Un poco no, me sirve de mucho. Muchas gracias.

Te pongo un ejemplo de como he puesto para que se ejecute el comando:

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

El tema es que al intentar ejecutar el programa desde el compilador me sale lo siguiente:
"[Error] Unit1.pas(61): Invalid typecast."

La linea a la que se refiere es a la del WinExec. ¿Sabes que significa el error?

Al principio del programa tengo declarada las uses:
"uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls, ShellAPI;"

Gracias.

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