Saber ruta de un exe

[[newtron]]

Si tienes asociado en windows el archivo con el programa que lo abre solo tienes que usar la función "ShellExecute" para abrir el archivo con el programa predeterminado esté donde esté.


p.e.

Código Delphi [-]
    ShellExecute(Handle, 'open', PChar(Archivo), '', '', SW_SHOW);

Saludos

[mblascog]

Ohhh!!! muchas gracias Newton, cuando llegue a casa lo pruebo y te digo qué tal!!!

[mblascog]

Gracias Newton, no siempre el visualizador es el programa predeterminado, en algunos usuarios sí, en otros no. Y no es por capricho, los diseñadores les interesa ir al explorador de archivos y con doble click abrir directamente el Autocad. Abren muchos ficheros al día y sería fastidiarles si cada vez tuvieran que ir botón derecho - abrir con
Por lo tanto, si alguien sabe cómo buscar el programa en el pc y ejecutarlo.

[Casimiro Noteví]

Lo que has preguntado es lo que te han respondido.
Lo que dices del explorador de windows no tiene nada que ver con el programa que tú has hecho.
Así que tendrás que aclararnos exactamente qué es lo que quieres.

[MAXIUM]

[mblascog]

Buenas, quizás no me he explicado, pero la respuesta no responde a mi pregunta.

Yo quiero que mi programita Delphi abra el fichero dwg con el programa edrawings, y no con otro

Este código:
[delphi]
ShellExecute(Handle, 'open', PChar(Archivo), '', '', SW_SHOW);/DELPHI]
abre el archivo dwg con el programa predeterminado, y yo necesito que sea el edrawings.

Antes, he intentado explicar porqué unos usuarios tienen edrawings como visualizador predeterminado y otros no.
La explicación que he dado antes, es que los diseñadores de la empresa, abren muchos ficheros dwg durante la jornada, y lo hacen desde el explorador de las Windows, con doble clic, y se abre Autocad, que lo tiebe como predeterminado.

Por lo tanto, como puedo ejecutar edrawings, desde Delphi, sin saber la ruta exacta donde se encuentra (dependiendo de los programas que tengas instalados, se encuentra en una ruta o otra)
Espero haberme explicado bien

Muchas gracias

[look]

Empezado por mblascog

Buenas, quizás no me he explicado, pero la respuesta no responde a mi pregunta.

Yo quiero que mi programita Delphi abra el fichero dwg con el programa edrawings, y no con otro

Este código:
[delphi]
ShellExecute(Handle, 'open', PChar(Archivo), '', '', SW_SHOW);/DELPHI]
abre el archivo dwg con el programa predeterminado, y yo necesito que sea el edrawings.

Antes, he intentado explicar porqué unos usuarios tienen edrawings como visualizador predeterminado y otros no.
La explicación que he dado antes, es que los diseñadores de la empresa, abren muchos ficheros dwg durante la jornada, y lo hacen desde el explorador de las Windows, con doble clic, y se abre Autocad, que lo tiebe como predeterminado.

Por lo tanto, como puedo ejecutar edrawings, desde Delphi, sin saber la ruta exacta donde se encuentra (dependiendo de los programas que tengas instalados, se encuentra en una ruta o otra)
Espero haberme explicado bien

Muchas gracias

Código Delphi [-]

ShellExecute(Handle, nil, PChar('dwg.exe'),  PChar(Archivo) ,  nil, SW_SHOWNORMAL)

[MAXIUM]

Empezado por mblascog

Buenas, quizás no me he explicado, pero la respuesta no responde a mi pregunta.

Yo quiero que mi programita Delphi abra el fichero dwg con el programa edrawings, y no con otro

Este código:
[delphi]
ShellExecute(Handle, 'open', PChar(Archivo), '', '', SW_SHOW);/DELPHI]
abre el archivo dwg con el programa predeterminado, y yo necesito que sea el edrawings.

Antes, he intentado explicar porqué unos usuarios tienen edrawings como visualizador predeterminado y otros no.
La explicación que he dado antes, es que los diseñadores de la empresa, abren muchos ficheros dwg durante la jornada, y lo hacen desde el explorador de las Windows, con doble clic, y se abre Autocad, que lo tiebe como predeterminado.

Por lo tanto, como puedo ejecutar edrawings, desde Delphi, sin saber la ruta exacta donde se encuentra (dependiendo de los programas que tengas instalados, se encuentra en una ruta o otra)
Espero haberme explicado bien

Muchas gracias

Quizás leyendo los valores de instalación en el registro de Windows

HKEY_CURRENT_USER\Software\eDrawings\e2019\InstallDir

Así obtienes la ruta de eDrawings.exe y EModelViewer.exe, la cual puedes usar con ShellExecute. O ejecutar eDrawings.exe + "ruta\nombre.dwg"