Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.968 c