FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#21
|
||||
|
||||
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'; Código:
COMANDO:= '%SYSTEMROOT%\System32\sc create ' + NOMBRE + ' binpath= ' + (RUTA)+ ' start= disabled'; Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#22
|
|||
|
|||
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. |
#23
|
||||
|
||||
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 .... |
#24
|
|||
|
|||
Cita:
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... |
#25
|
||||
|
||||
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 ). Código:
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; 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.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#26
|
|||
|
|||
Cita:
¿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í. |
#27
|
||||
|
||||
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.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
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 |
|