установка программы

← →
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]

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

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

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

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

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

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

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

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