FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
Cita:
__________________
all your base are belong to us |
#3
|
||||
|
||||
Cita:
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" Última edición por MAXIUM fecha: 09-02-2019 a las 19:54:01. |
#4
|
|||
|
|||
Gracias por la respuesta, y parece que vaya buscando los problemas, pero eDrawings, dependiendo de la versión tiene una o otra entrada en el registro.
Se me ha ocurrido, como solución rápida y no tener que ir cambiando el programa según las versiones de Delphi, de crear un acceso directo a la C:\ de cada pc, y desde delphi, si se puede, intentar ejecutar este acceso directo. Informaré del resultado. Muchas gracias de nuevo |
#5
|
|||
|
|||
Buenas, existe alguna diferencia entre ejecutar un programa o un acceso directo?
Este código abre eDrawings:
He creado un acceso directo en la c:\ que abre eDrawings, lo he probado. Y cuando lo intento ejecutar en Delphi no: procedure TForm1.FormActivate(Sender: TObject); var ruta: string; begin edit1.text := ''; edit1.PasteFromClipboard; ruta := 'C:\eDrawings.lnk'; if fileexists(edit1.text) then ShellExecute(Handle, 'open', PAnsichar(ruta), PAnsichar(edit1.text), nil, SW_SHOW) else Showmessage('No existe fichero'); Application.Terminate; end; Alguien sabe por qué?? Muchas gracias |
#6
|
||||
|
||||
|
#7
|
|||
|
|||
Perdón, el primero lo he hecho, el segundo no, es un poco difícil con el móvil. I
|
#8
|
||||
|
||||
Yo con el móvil no puedo ni teclear Bastante has podido hacer.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
saber ruta al presionar Ctrl +C | DOS994 | C++ Builder | 11 | 23-12-2012 22:55:49 |
Buscar ruta de BD | vlanka24 | Varios | 6 | 06-08-2008 15:41:34 |
cambiar la ruta de la bd... | lurad | Conexión con bases de datos | 1 | 30-11-2006 11:21:00 |
Fopen Como Saber Ruta Relativa? | wakeup | C++ Builder | 3 | 05-04-2006 15:58:22 |
Ruta de instalación | Eolo | SQL | 0 | 24-08-2004 16:06:17 |
|