Menu en Delphi problemas con ShellExecute
Hola querida comunidad, hacia tanto que no usaba el Delphi, estoy tratando de hacer un Menu en Delphi, en el cual hay varios directorios
Supongamos que hay : Código:
Directorio1\archivo1.exe el ejecutable supongamos archivo1.exe no encuentra las carpetas que estan dentro del Directorio1, las subcarpetas y los archivos para ejecutar la aplicacion ya que es como si estuviese llamando desde otro directorio al ejecutable. Tengo todo listo pero estoy fallando en esto, yo tengo asi y doy un ejemplo Muchisimas gracias a quien pueda ayudarme. |
¡Hola, RubenXE!
Debes tener en cuenta que "Directorio1\archivo1.exe" es una ruta relativa al ejecutable. Si el ejecutable está en la ruta "C:\MyProject\Project1.exe", con esa ruta relativa el programa tratará de abrir "C:\MyProject\Directorio1\archivo1.exe". Podrías usar las rutas completas de los items de tu menú para que encuentre los archivos Código:
C:\Directorio1\archivo1.exe |
Creo que lo que preguntas se resuelve con el quito parámetro de ShellExecute.
De la ayuda de Delphi 6: Cita:
|
Prueba con esto:
ShellExecute(Application.Handle, '' {'open'}, PChar(Archivo), nil, PChar(ExtractFilePath(Archivo)), SW_SHOW);
|
Gracias a todos por su ayuda, voy a probarlos y espero que funcionen en Embarcadero Delphi XE.
El punto es que yo no puedo forzar donde el "usuario" vaya a instalar el programa. Obviamente que se como obtener el directorio completo en Delphi. Haber si me explico mejor el menu debe llamar las aplicaciones desde el directorio donde se encuentran si yo la llamo desde el directorio donde estoy la aplicacion va a tratar de abrir recursos que estan "dentro de su carpeta" pero da error ya que en este caso es como si llamase a la aplicacion desde el directorio principal y no desde la carpeta donde esta el .exe. Espero haber sido claro. NOTA : Se agradecen correcciones y ejemplos de como deberia poner el codigo porque desde que fallecio mi padre no pude usar tanto como queria Delphi y desde ya hace un tiempo con la vejez de mi madre lo que antes resolvia en 5 minutos hoy me toma dias. MIL GRACIAS A TODOS. |
Cita:
El problema es que no me se expresar, lo voy a poner mas facil root (digamos que es la carpeta principal donde quiera que sea y alli va a ir Project1.exe o Menu.exe (como quieras llamarle dentro de es carpeta hay como 5 carpetas con un ejecutable dentro y recursos. Con el metodo que yo estoy usando me tira el clasico error de que "no se pueden encontrar los recursos para la aplicacion (la cual llame)" y esto se debe a que debe a que necesito que el Project1.exe este en el archivo root o principal para ejecutar cualquiera de esos .exe en diferentes carpetas, pero deben de ser ejecutadas "DENTRO" de la carpeta para que esos "ARCHIVOS.EXE" encuentren las subcarpetas con los recursos para ser ejecutadas. Espero haber sido claro, tengo Delphi XE de Embarcadero, es una pena porque hay algunos comandos que eran compatibles con Delphi 7, pero quedaron desactualizados con el XE, y para adaptarlos soy un nobato, me cuesta mucho y mas siendo que hace 9 años casi ni uso la pc. Se agradece cualquier ayuda. |
Parte de este mensaje es respuesta a un mensaje privado.
Bienvenido nuevamente al mundo de la programación! Por suerte es algo que puedes hacer a ratos si es un hobby. En mi caso es trabajo y le dedico todas las horas del día :-( Por suerte Delphi, aunque ha cambiado, sigue siendo el mismo Pascal de siempre. Por supuesto hay cambios que impiden que algo de Delphi 6 funcione en los más modernos, pero no suele ser muy difícil modificarlo. En el caso de PChar: Antes existía solo PChar, que es como C define los strings (bytes terminados con un byte 0). Luego se introdujeron los caracteres multibyte (varios bytes para definir un caracter) como UTF. En este caso UTF16, que se define como 2 bytes por caracter, que es lo que utiliza windows. A Partir de aquí hubo que hacer dos tipos de variables PAnsiChar y PWideChar que se refieren a la versión original de PChar y a la nueva de 2 bytes por caracter. PChar, por compatibilidad con versiones viejas, es lo mismo que PAnsiChar. Lo que te pide es que modifiques el tipo de dato PChar(PAsniChar) a PWideChar que es lo que la nueva implementación de ShellExecute necesita. Con respecto a la explicar un poco los parámetros de la función AbrirArchivo(): Archivo se refiere al nombre del archivo con la ruta completa. En este caso supongamos que estas en el directorio C:\Ejecutable.
ExtractFilePath() es una función a la que le pasas un fichero (un string que dice dónde está y como se llama el fichero) y te devuelve el path hasta ese fichero. Por ejemplo:
Esta función en el quinto parámetro la utilizo para decirle a ShellExecute cual es el directorio donde debe ejecutarse. Esto supongo que solucionaría tu problema, pero no lo he probado. |
Cita:
Cambio el codigo una y mil veces, todo parece ok, guardo el projecto y al compilarlo errrror. y cuando pasa y lo compila, directamente no ejecuta nada. El problema es que yo necesito la funcion esa del ShellExecute (la que vos me dijiste yo tengo la comun) Dentro de un procedure
si pongo el PWideChar me dije que el ejecutable1.exe esta sin declarar, para que no me tire error lo hago de este modo :
y no ejecuta nada, si le saco a PWideChar('ejecutable1.exe') y pongo PWideChar(ejecutable1.exe) ya se arma la decima guerra mundial de las alertas en Delphi jejeje (perdon pero es asi hay que afrontar la realidad) Punto y aparte te paso parte del codigo para que me recomiendes que hacer, y ya no te molesto mas ya tiro el projecto a la basura y listo : ---------------------------------------------------------------------------------------------------------------------
El resto esta vinculado a un menu, con textos el cual al pasar, o presionar cambian de color y la funcion llamar que es la que me jode. Tengo un amigo que es un genio, maneja varios lenguajes de programacion, incluido NET Framework, C++, y no se cuantos mas. Y tengo otro amigo que directamente programa en Assembler... (si yo me complico la vida con una tonteria como esta imaginate ellos) Logicamente trabajan para empresas en Europa y estan fulltime, ni modo. Si me podes dar una ultima ayuda te agradeceria y si no, no me quedara mas remedio que instalar el viejo y querido Delphi 7. Sea como sea muchisimas gracias. |
El tema es que estoy dentro de otro procedure y no puedo poner el otro procedure
Código:
Procedure TDMMain.AbrirArchivo(Archivo: string); Código:
procedure TForm1.FormCreate(Sender: TObject); |
1 Archivos Adjunto(s)
He hecho un ejemplo en Delphi 6 para probar el concepto y funciona correctamente.
Dentro de un rato lo probaré en Delphi 11. He hecho una aplicación que solo muestra el directorio en el que se ha lanzado.
Luego he hecho otra aplicación con un Edit (EArchivo) y un Botón (BEjecutar).
He copiado el ejecutable en diferentes directorios de la aplicación y los llamo escribiendo la ruta en en Edit. Por ejemplo:
Si modifico la aplicación y quito el quinto parámetro pasando nil Resultado := ShellExecute(Application.Handle, '' {'open'}, PChar(Archivo), nil, nil, SW_SHOW);
Archivo Adjunto 4094 |
He probado esto en Delphi 11.2 y funciona correctamente.
Tanto en Win32 como en Win64. |
La franja horaria es GMT +2. Ahora son las 00:56:20. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi