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

установка программы   Найти похожие ветки 

← →
lelik   (2004-06-09 00:31) [0]

как проверить установлен Word или нет

---

← →
Игорь Шевченко ©   (2004-06-09 00:33) [1]

CreateOleObject("Word.Application") ?

---

← →
lelik   (2004-06-09 00:39) [2]

как мне по этой процедуре узнать

---

← →
KilkennyCat ©   (2004-06-09 00:45) [3]

Или проверкой существования ветки в реестре. Если, конечно, "умный" юзер не удалил офис в корзину :)

RootKey := HKEY_LOCAL_MACHINE;
Registry.KeyExists("SOFTWARE\Microsoft\Office\8.0\Word")
Registry.KeyExists("SOFTWARE\Microsoft\Office\9.0\Word")
Registry.KeyExists("SOFTWARE\Microsoft\Office\10.0\Word")

---

← →
Palladin ©   (2004-06-09 01:06) [4]

> lelik   (09.06.04 00:39) [2]

Вызови CreateOleObject("lsdfhlsakjdhfls.sdlkfjhaslkjdf");
и узнаешь как...

---

← →
YuRock ©   (2004-06-09 01:14) [5]

> Palladin ©   (09.06.04 01:06) [4]

:))))

---

← →
GanibalLector ©   (2004-06-09 01:55) [6]

CLSIDFromProgID("Excel.Application", ClassID);

---

← →
KilkennyCat ©   (2004-06-09 02:35) [7]

> GanibalLector ©   (09.06.04 01:55) [6]


Ты чего?! про Ворд же спрашивали!

---

← →
Prog's Killer   (2004-06-09 08:43) [8]

if Fileexist("c:\...\word.exe") = true then
begin
...
end;

---

← →
Gero ©   (2004-06-09 08:49) [9]

> [8] Prog"s Killer   (09.06.04 08:43)

Какой полезный совет.

---

← →
Prog's Killer   (2004-06-09 08:52) [10]

Смысле, хороший или плохой :) ?

---

← →
Gero ©   (2004-06-09 08:58) [11]

> Prog"s Killer   (09.06.04 08:52)

Всмысле, что у меня word находится на диске d.
А на c его и в помине не было.

---

← →
evvcom ©   (2004-06-09 09:00) [12]

А я еще люблю создавать текстовые файлы и переименовывать их в word.exe

---

← →
Prog's Killer   (2004-06-09 09:02) [13]

Ну, дак можно можно просто перебирать имена дисков, пока не получится положительный результат.

---

← →
Prog's Killer   (2004-06-09 09:03) [14]

Раскритиковали :)

---

← →
evvcom ©   (2004-06-09 09:07) [15]

Еще автору на заметку

> if Fileexist("c:\...\word.exe") = true then

Fileexist уже возвращает булев результат и сравнивать его с булевой константой просто ... глаз режет.

---

← →
KilkennyCat ©   (2004-06-09 09:23) [16]

> Prog"s Killer   (09.06.04 09:02) [13]


у меня два винта по 120 гиг... 8 логических дисков, а папок на них хрен знает сколько... все перебирать?

---

← →
Sun bittern ©   (2004-06-09 10:20) [17]

А уменя офис не в папке Programm Files :^)

---

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

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



Память: 0.48 MB
Время: 0.019 c