Menu en Delphi problemas con ShellExecute

[[movorack]]

¡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:\Directorio1\archivo1.exe
C:\Directorio2\archivo2.exe
C:\Directorio3\archivo3.exe

[RubenXE]

Empezado por movorack

¡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:\Directorio1\archivo1.exe
C:\Directorio2\archivo2.exe
C:\Directorio3\archivo3.exe

Es que precisamente eso quiero, porque si quiero mover la carpeta entera con el contenido y el menu de otro modo no va a funcionar.

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.

[[duilioisola]]

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.

• Si le pasas AbrirArchivo('Ejecutable1.exe') abrirá C:\Ejecutable\Ejecutable1.exe.
• Si le pasas AbrirArchivo('C:\Utilidades\Ejecutable1.exe') abrirá C:\Utilidades\Ejecutable1.exe.
• Si le pasas AbrirArchivo('Utilidades\Ejecutable1.exe') abrirá C:\Ejecutable\Utilidades\Ejecutable1.exe. (buscará el directorio Utilidades dentro del que estés en ese momento)
• Si le pasas AbrirArchivo('\Utilidades\Ejecutable1.exe') abrirá C:\Utilidades\Ejecutable1.exe. ('\' es la raiz del directorio)
• Si le pasas AbrirArchivo('..\Utilidades\Ejecutable1.exe') abrirá C:\Utilidades\Ejecutable1.exe. ('..' es ir al directorio anterior)
• Si le pasas AbrirArchivo('\Utilidades\Ejecutable1.exe') abrirá C:\Utilidades\Ejecutable1.exe. ('\' es la raiz del directorio)

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:

• ExtractFilePath('C:\Utilidades\Ejecutable1.exe') te devuelve 'C:\Utilidades\'
• ExtractFilePath('..\Utilidades\Ejecutable1.exe') te devuelve '..\Utilidades\'
• ExtractFilePath('Utilidades\Ejecutable1.exe') te devuelve 'Utilidades\'

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.