Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-07-2010 a las 01:09:07.
Responder Con Cita
  #2  
Antiguo 07-07-2010
nicktdigo nicktdigo is offline
Miembro
 
Registrado: jun 2010
Posts: 16
Poder: 0
nicktdigo Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
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.
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
Responder Con Cita
  #3  
Antiguo 07-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:
Código:
   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';
Es lo igual que :
Código:
 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.
Código:
  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:
Código:
   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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #4  
Antiguo 08-07-2010
nicktdigo nicktdigo is offline
Miembro
 
Registrado: jun 2010
Posts: 16
Poder: 0
nicktdigo Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola nicktdigo.
Lo de CMD fué sólo un ejemplo,si te fijas bién la línea:
Código:
   Comando:= 'C:\Windows\System32\cmd.exe' +
             ' /K CD C:\Documents and Settings';
Es lo igual que :
Código:
 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.
Código:
  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:
Código:
   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.
Responder Con Cita
  #5  
Antiguo 10-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola nicktdigo.

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

Vos escribiste:
Código:
   COMANDO:= '%SYSTEMROOT%\System32\sc create ' +
                      NOMBRE + 
                      ' binpath= "' + 
                      (RUTA)+
                      '" start= disabled';
Y debería ser:
Código:
   COMANDO:= '%SYSTEMROOT%\System32\sc create ' + 
                      NOMBRE + 
                      ' binpath= ' + 
                      (RUTA)+
                      ' start= disabled';
Pero es una opinión, ya que no lo puedo probar...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 11-07-2010
nicktdigo nicktdigo is offline
Miembro
 
Registrado: jun 2010
Posts: 16
Poder: 0
nicktdigo Va por buen camino
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.

Última edición por nicktdigo fecha: 11-07-2010 a las 11:56:01.
Responder Con Cita
  #7  
Antiguo 11-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
NMFTP.List se queda pegado quinqui Internet 1 21-12-2007 21:37:39
Forzar pegado Khronos Varios 1 20-10-2007 15:33:34
Evitar Pegado nemesio Varios 9 03-12-2005 03:53:41


La franja horaria es GMT +2. Ahora son las 04:33:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi