Menu en Delphi problemas con ShellExecute

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