abrir un fichero pdf
Quiero crear la ayuda para un programa en pdf y que el usuario la tenga siempre disponible, por lo tanto necesito una función o procedimiento al que le pase el nombre del fichero y me ejecute el acrobat reades automáticamente, sin necesidad de decirle donde está el ejecutable del acrobat.
Por ejemplo para abrir el acrobat, leemos la siguiente variable del registro:
-- Ruta del Acrobat Reader
BEGIN
path := WIN_API_ENVIRONMENT.READ_REGISTRY('HKEY_CLASSES_ROOTSOFTWAREADOBEACROBATEXE',NULL,TRUE);
EXCEPTION WHEN OTHERS THEN
path := NULL;
ERRORES(78,'CANTERIA'); --Acrobat Reader no instalado
END;
-- Lanzamos Acrobat Reader
BEGIN
acrobat := DDE.APP_BEGIN(path||' "'||fichero_pdf||'"',DDE.APP_MODE_MAXIMIZED);
-- Ruta del Acrobat Reader
BEGIN
path := WIN_API_ENVIRONMENT.READ_REGISTRY('HKEY_CLASSES_ROOTSOFTWAREADOBEACROBATEXE',NULL,TRUE);
EXCEPTION WHEN OTHERS THEN
path := NULL;
ERRORES(78,'CANTERIA'); --Acrobat Reader no instalado
END;
-- Lanzamos Acrobat Reader
BEGIN
acrobat := DDE.APP_BEGIN(path||' "'||fichero_pdf||'"',DDE.APP_MODE_MAXIMIZED);
