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

Вниз

Установлен ли Word   Найти похожие ветки 

 
Anatoliy T.   (2005-03-02 17:36) [0]

Прошу помочь! Формирую отчет в документ Word, но для корректности работы приложения хотелось бы для начала программно узнать, а установлен ли на машине сам Word.


 
ancara ©   (2005-03-02 17:39) [1]

можно попытаться прочитать параметр "" из раздела HKEY_CLASSES_ROOT\Word.Application\CurVer


 
jack128 ©   (2005-03-02 17:41) [2]

ну так и определяй:
try
 WordAppl := CreateOleObject("Word.Application");
except
 raise Exception.Create("Установите word!!!!!!!!");
end;
try
// формируй отчет
finally
 WordAppl.Quit;
end;


 
Digitman ©   (2005-03-02 17:43) [3]

простейший, но не всегда оптимальный вариант :

try
OleVar := CreateOleObject("Word.Application");
except
//с достаточной долей вероятности Ворд не установлен
end;


 
Gero ©   (2005-03-02 17:44) [4]


> jack128 ©   (02.03.05 17:41)

А если исключение произойдет по какой-то другой причине?
Зачем же так пользователя дезинформировать.


 
Набережных С. ©   (2005-03-02 18:33) [5]

CLSIDFromProgID


 
GanibalLector ©   (2005-03-03 01:52) [6]

var ClassID:TCLSID;
begin
 if  CLSIDFromProgID("Excel.Application", ClassID)<>S_OK then
   begin
     Messagedlg("Создание документа невозможно!!!"+#10#13+
            "Не установлен Word Application",mterror,[mbok],0);        Exit;
   end;
...


 
Германн ©   (2005-03-03 02:42) [7]

А "Excel Application" так ли уж необходимо проверять, чтобы определить установлен ли Word? :)


 
GanibalLector ©   (2005-03-03 03:11) [8]

2 Германн ©   (03.03.05 02:42) [7]
Хм...ошибся ;)
Естественно,имелось ввиду : Word.Application


 
boalse ©   (2005-03-03 08:45) [9]


> Зачем же так пользователя дезинформировать.


Лучше написать "Не могу сформировать отчет. ВОЗМОЖНО не установлен Word!"
И никакой дизинформации, только предположение. Русский язык - сила!


 
Anatoliy T. ©   (2005-03-03 15:14) [10]

Спасибо за помощь! Этого вполне достаточно. Решение проблемы вполне прозрачно, почему сам не догадался???  Наверно заклинило!



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

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

Наверх




Память: 0.49 MB
Время: 0.032 c
1-1110103716
MU
2005-03-06 13:08
2005.03.20
Вынесение инвариантного кода за пределы цикла


1-1109953284
Tirex
2005-03-04 19:21
2005.03.20
XP Themes and TToolBar.AdvancedCustomDrawButton


14-1109141254
Mystic
2005-02-23 09:47
2005.03.20
Тест на IQ


4-1107972890
Phantom_OO7
2005-02-09 21:14
2005.03.20
Завершение сеанса Windows


14-1109256058
}|{yk
2005-02-24 17:40
2005.03.20
Локализация 2003.