Установлено ли приложение?

[User2004]

Ситуация такая:
Пишу что-то типа Setup wizard,т.е. нужно установить какое-либо приложение.К примеру-MS Office
Как узнать,установлено ли оно уже и если да,то куда(путь к ехе-шнику)?

[GSerg]

Каждый софт пишет себя в реестр по-своему
Смотри, куда пишет себя искомый софт, и читай потом это место в реестре.

[alibek]

Код: Выделить всё

res = InputBox("Приложение Microsoft Office установлено?")
Select Case UCase$(res)
  Case "ДА", "YES"
    res = InputBox("А куда оно установлено?")
    MsgBox "Приложение установлено в каталог '" & res & "'."
End Select


2 GSerg - иногда софт ничего не пишет в реестре. Тогда искать только рекурсией по каталогам.

[User2004]

Код: Выделить всё

res=InputBox("Приложение Microsoft Office установлено?")
Select Case UCase$(res)
  Case "ДА", "YES"
    MsgBox "Приложение установлено."
End Select



Это чё,прикол?
А если серьезно,можно кусок кода с рекурсивным просмотром реестра? Толко не посылайте меня в API (каламбур),плиз.
Я там все ноги переломал,а ничего не понял(см.фото)
Там все функции в один пример забабаханы-я врубиться не могу чё к чему

[User2004]

Код: Выделить всё

res = InputBox("Приложение Microsoft Office установлено?")
Select Case UCase$(res)
  Case "ДА", "YES"
    res = InputBox("А куда оно установлено?")
    MsgBox "Приложение установлено в каталог '" & res & "'."
End Select




Дело в том,что моя прога не знает кто и куда устанавливал MS Office.Может его на диск D засунули,но он уже есть! Так вот надо чтобы она второй офис не пыталась инсталлировать

[tyomitch]

Проверь HKEY_CLASSES_ROOT\Word.Application
Если такой ключ есть, то и Ворд стоит.

[User2004]

Вообще-то у меня не только Ворд устанавливается.Там штук >=10 разных приложений.Вначале пользователь выбирает,какие из них надо установить,а прога запускает установщики согласно очереди.
А если её запустить ещё раз она по второму кругу их начнёт устанавливать.
Вот я и хочу,чтоб она проверяла,что уже стоит,а что нет

А в реестре все приложения в одном ключе прописываются или кто куда захочет?

[tyomitch]

Кто куда.
GSerg это уже отметил в первом ответе.

[User2004]

Тогда пардон за повтор
А можно кусок кода с рекурсивным просмотром реестра? Толко не посылайте меня в API (каламбур),плиз.
Я там все ноги переломал,а ничего не понял(см.фото)
Там все функции в один пример забабаханы-я врубиться не могу чё к чему

[User2004]

Спасибо всем!
Код нашел зесь(если кому интересно):
http://www.freevbcode.com/source/Search_Registry.zip
Главное-наглядно