Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: CL | DM;

Вниз

Как узнать, что Word установлен?   Найти похожие ветки 

 
AlexanderMS ©   (2007-10-21 16:11) [0]

Скажите, пожалуйста, как узнать, установлен ли 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 16:33) [1]


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

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


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


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


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

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


 
DrPass ©   (2007-10-21 17:59) [3]


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


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.11.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
4-1178288430
kain2
2007-05-04 18:20
2007.11.11
Помогите ошибка!!!


15-1191050748
x.pro
2007-09-29 11:25
2007.11.11
Проблема с формами... или руками моими...


9-1162945673
cxvxc
2006-11-08 03:27
2007.11.11
Спрайт OpenGL


6-1172929528
tytus
2007-03-03 16:45
2007.11.11
TWebBrowser - долгая загрузка страницы.


2-1192461569
koha
2007-10-15 19:19
2007.11.11
ListView и позиция курсора.