No se puede visualizar PDF

[NestorN]

Hola Compañeros; quiero poder ejecutar un archivo del tipo pdf por medio de un botón.
Agregue a las uses del form las ShellApi, y utilice el siguiente código en un botón:

Código Delphi [-]
ShellExecute(form1.Handle, 'open',Pchar(Getcurrentdir + '\ReadMe.pdf'),nil,nil,SW_SHOWNORMAL);

El tema es que compila correcatamente, pero al presionar el botón no se ejecuta el pdf. Si alguien me puede dar una mano, desde ya muchas gracias.

[[Caral]]

Hola
A mi me funciona perfectamente.
Pusiste el archivo pdf en el mismo directorio que el programa?.
Eso dice aqui: (Getcurrentdir).
Saludos

[Faust]

Generalmente no uso GetCurrentDir, pues no sé como funcione...

Me parece más seguro usar p. ej.

Código Delphi [-]
ShellExecute(form1.Handle, 'open',Pchar(ExtractFileDir(Application.ExeName) + '\ReadMe.pdf'),nil,nil,SW_SHOWNORMAL);

Por si se encuentra en el mismo directorio que tu ejecutable.

Saludos

[NestorN]

Gracias por la ayuda, definitivamente lo que me faltaba era poner el pdf dentro de la carpeta del proyecto. Gracias por la ayuda.

[[Lepe]]

Faust lleva razón, GetcurrentDir te da el directorio activo del sistema operativo, pero puede ser distinto al de tu aplicación, es mejor usar ExtractFileDir. O realizar una llamada a SetCurrentDir previamente.... aunque otra aplicación puede hacer lo mismo y tu pdf salir en otra carpeta...

Saludos