Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить версию Word [D5, Win95/98, Win2k]


Juliet ©   (2002-07-16 13:06:00) 

Как определить версию и местоположение Microsoft Word назначенного системой обработчиком файлов с расширением .DOC?


olookin   (2002-07-16 15:31:00) [1]

Послушайте, раз Вы запускаете Word, значит можно и вызвать Word.Application.Version. Или нельзя?
Ну можно так (по-моему).
Сначала:
Word:=GetActiveOleObject(Word.Application);
Затем:
Ver:=Word.Application.Version;
Showmessage(Ver);


Juliet   (2002-07-16 13:37:00) [2]

Самое интересное в том, что я запускаю сервер автоматизации Word и открываю в нем документ. И в зависимости от того, какой из Word-ов (97 или 2000) был перед этим загружен, в той же версии и открывется документ. А мне бы хотелось узнать, какой же Word загрузится в данный момент?


Juliet   (2002-07-16 13:26:00) [3]

У меня на компе установлен и 97 и 2000 Word (т.е. 8 и 9 версии)
А в реестре c расширением Doc связан 8 Word, хотя грузится 9 - или я не там смотрю?


delphi_profi   (2002-07-16 13:23:00) [4]

А сканировать то зачем???
Так же, как и версия: Application.Path


Juliet   (2002-07-16 13:22:00) [5]

У меня на компе установлен и 97 и 2000 Word (т.е. 8 и 9 версии)
А в реестре c расширением Doc связан 8 Word, хотя грузится 9 - или я не там смотрю?


olookin   (2002-07-16 13:12:00) [6]

Просканировать все диски на предмет наличия X:\Program Files\Microsoft Office\Office\Winword.exe. А версия определяется как Word.Application.Version, где сначала вызывается Word (тип Variant, CreateOleObject(Word.Application)).


Вячеслав   (2002-07-16 13:12:00) [7]

Сам и ответил. Посмотри в регистри чего назначено на это расширение и где оно лежит :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо