Установлен ли 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? :)

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

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

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

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