| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Excel ( Word) [D5, Win95/98]

First_May ©   (2002-10-25 10:42:00) 

Подскажите, как можно проверить, установлен на компьютере Excel (Word)?

---

MM   (2002-10-25 16:41:00) [1]



if not IsOLEObjectInstalled("Excel.Application") then
ShowMessage("MS Excel не установлен!")
else
ShowMessage("MS Excel установлен!");


function IsOLEObjectInstalled(Name: String): boolean;
var
ClassID: TCLSID;
Rez : HRESULT;
begin
Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);
if Rez = S_OK then
Result := true
else
Result := false;
end;

---

Карелин Артем   (2002-10-25 15:30:00) [2]

И обязательно вызываем метод Quit, если ексель обнаружен....

И на всяк случай интерфейс еще и обнуляем.

---

Lord Warlock   (2002-10-25 15:06:00) [3]

var IU: IUnknown;
begin
try
IU:=CreateOLEObject("Edcdxcel.Application");
except
ShowMessage(":("); //нет Excel
end;
if Assigned(IU) then
ShowMessage(":)");//есть Excel
end;

---

First_May   (2002-10-25 14:46:00) [4]

То asmith
Этот способ мне не нравиться, так как при создании или коннекте может возникнуть эксепшен, а это не хорошо...

---

asmith   (2002-10-25 14:13:00) [5]

Можно попробовать создать COM-объект word.application и проанализировать результат создания.

---

First_May   (2002-10-25 12:46:00) [6]

Ну если нет других вариантов, то благодарю всех...

---

Dm9   (2002-10-25 12:36:00) [7]

Наверное, из реестра.
У меня, например, сейчас не устанолен офис, и раздела
HKEY_LOCAL_MACHINE\Software\Microsoft\Office или
HKEY_LOCAL_MACHINE\Software\Microsoft\MSOffice или
чего-нибудь подобного у меня нет. Хотя должен ли быть - не знаю, может, офис как по-другому прописывается. Посмотри, как у тебя.

---

Наверх