Visor documentos *.tif

[isnagil]

Tengo que abrir ficheros .tif en una aplicación delphi. He estado mirando en los foros y la solución

ShellExecute(0, 'open', 'c:\Windows\System32\rundll32.exe', 'c:\Windows\System32\shimgvw.dll,ImageView_Fullscreen c:\imagen.jpg', nil, SW_NORMAL);

funciona con ficheros .jpg pero no con .tifs ¿Alguien podría darme una solución? Me estoy volviendo loco con algo que parece muy sencillo.

[[ElDioni]]

Yo creo que no te funciona porque no tienes instalado en tu equipo ningún programa que pueda abrir archivos tif, al hacer el shellexecute, creo (si no es así que me corrijan) que lo que haces es pasarle la responsabilidad a windows para que te abra el archivo con el programa que el tenga asociado a esa extensión, los jpg te los abre y los tif no por el tema que te comento.
Un saludo.

[isnagil]

Claro. Es el visor de imágenes y faxes de windows el que tiene que abrir el tif pero no lo hace con esta instrucción, pero si cuando se pincha dos veces directamente sobre el archivo.

[[ElDioni]]

Que raro, yo creo que debería abrirse sin problemas, supongo que si entras al listado de extensiones de windows y ves la .Tif estará asociada a un programa, ¿no?, he probado tu código y a mi si que me funciona y me lo carga con el visor de windows. ¿prueba sino con el winexec?
Un saludo.

[isnagil]

Si. Los archivos con extensión tif tienen asociados por defecto el visor de windows, por eso se abren al pinchar dos veces, pero no desde delphi.
¿Has probado con un archivo tif que tenga varias hojas, o sea, con un multipage?

[[ElDioni]]

Pues no, solo he probado con una imagen tif simple, ¿has probado tú la opción del winexec a ver que hace?

Un saludo.

[[ElDioni]]

Código Delphi [-]
WinExec(PChar('c:\Windows\System32\rundll32.exe c:\Windows\System32\shimgvw.dll,ImageView_Fullscreen C:\Imagen.tif'), SW_SHOWNORMAL);

Un saludo.

[isnagil]

Muy bueno:

Funciona con winexe, que cosa más rara!!!
Bueno gracias!!!