Проверка возможности открытия пдф файла в делфи

[Dennis777]

Открываю пдфку через

ShellExecute(Handle, 'open', PChar(extractfilepath(paramstr(0))+ '\print\1.pdf'), nil, nil, SW_HIDE)

Как перед этим сделать проверку на возможность открытия пдф файла на компьютере? (если нет программы с возможностью просмотра - выводить сообщение об отсутсвии Адоб Акробата/ридера и давать ссылку на скачивание)

[FaTaL]

Ну ПДФ не только акробатом можно открывать. Так что самый лучший вариант, это в реестре глянуть, есть ли для расширения .pdf какое то приложение.

[Dennis777]

А не могли бы вы подсказать ориентировочный способ реализации?

Никогда с реестром не работал, понятия не имею как там что присваевается(

P.S. И мне не принципиально, какой программой будет открываться файл. Может есть какая-то команда, которая может определить, открывается ли такой файл или выводится ошибка?

[XE5]

Сообщение от Dennis777

А не могли бы вы подсказать ориентировочный способ реализации?

Uses Registry;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CLASSES_ROOT;
  if Reg.KeyExists('.pdf') then
    ShowMessage('Ключ есть')
      else ShowMessage('Ключа нет');
  Reg.Free;
end;

1 - Если в реестре есть ключ ассоциации, это не значит что сопоставленная программа существует, ибо некоторые программы при деинсталяции "ленятся" удалять свои ключи. Как быть? Догадайся сам.
2 - Впредь побеждаем свою лень, и задаём подобные вопросы поисковикам. Вопрос не охренеть какой редкий.

[Dennis777]

1. Большое спасибо.
2. Да у меня просто сроки горят, и помимо этого, есть еще 30 схожих проблем, а в сутках всего 24 часа) До которых добираться далеко, иногда спрашиваю)

Еще раз спасибо

[northener]

Да у меня просто сроки горят, и помимо этого, есть еще 30 схожих проблем

<offtop>
Ему хотелось добавить, что у него жена, дети, Серна, дети от Серны и еще от одной женщины, которая живет в Ростове‑на‑Дону, но в горле что‑то само по себе пикнуло, и он промолчал. (c)
</offtop>

[Dennis777]

Сообщение от northener

<offtop>
Ему хотелось добавить, что у него жена, дети, Серна, дети от Серны и еще от одной женщины, которая живет в Ростове‑на‑Дону, но в горле что‑то само по себе пикнуло, и он промолчал. (c)
</offtop>

Ахахах!)
Сохраню на память!

[northener]

Сообщение от Dennis777

Ахахах!)
Сохраню на память!

Может лучше оригинал прочитать на досуге?
Илья Ильф, Евгений Петров "Золотой теленок"

[Dennis777]

Не, Золотой теленок мне совсем не зашел. Пробывал прочитать и в 5, и в 10, и даже в 18 лет. Но после всех этих неудачных попыток решил оставить его потомкам =)

Из русской классики все перечитал, но вот теленок - не мое

[XE5]

Сообщение от Dennis777

2. Да у меня просто сроки горят

Спросить на форуме - сутки по времени...
Спросить в гугле - 30 минут...
Отмазка не прокатила.