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

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

Как узнать, что Word установлен? [D7]


AlexanderMS ©   (2007-10-21 16:11:00) 

Скажите, пожалуйста, как узнать, установлен ли Word на компьютере? Видел пример в FAQ:

var MsWord: Variant;
...
 try // Если Word уже запущен
   MsWord := GetActiveOleObject('Word.Application');
 // Взять ссылку на запущенный OLE объект
 except  
   try  // Word не запущен, запустить  
     MsWord := CreateOleObject('Word.Application');  
     MsWord.Visible := True;   // вот эта строка обязательна или нет?
   except    ShowMessage('Не могу запустить Microsoft Word');    
     Exit;  
   end;  
 end;

Тут есть строка: MSWord.Visible := true, а мне не нужно его показывать до окончания формирования отчёта. Вот я не знал, играет ли она роль в определении того, что Word установлен?
Ещё: этот способ надёжный? Просто у меня нет возможности проверить программу на компьютере, где нет Word'а, а конечный продукт могут запустить на любом компьтере.


DrPass   (2007-10-21 17:59:00) [1]


> AlexanderMS ©   (21.10.07 16:35) [2]


> А почему тогда в FAQ так написано, в блоке try...except
> ?

Автор FAQ просто сделал Ctrl+C/Ctrl+V из своей программы :)


AlexanderMS   (2007-10-21 16:35:00) [2]


> А если чуть лучше подумать - какое отношение имеет команда
> "Visible:= true" к определению того, установлен ли Word?
>


А почему тогда в FAQ так написано, в блоке try...except? Вот я и задумался.

Спасибо, буду знать.


DrPass   (2007-10-21 16:33:00) [3]


> Вот я не знал, играет ли она роль в определении того, что
> Word установлен?

А если чуть лучше подумать - какое отношение имеет команда "Visible:= true" к определению того, установлен ли Word?


Наверх

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