Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

Excel ( Word)   Найти похожие ветки 

← →
First_May ©   (2002-10-25 10:42) [0]

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

---

← →
Dm9 ©   (2002-10-25 12:36) [1]

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

---

← →
First_May ©   (2002-10-25 12:46) [2]

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

---

← →
asmith   (2002-10-25 14:13) [3]

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

---

← →
First_May ©   (2002-10-25 14:46) [4]

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

---

← →
Lord Warlock ©   (2002-10-25 15:06) [5]

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

---

← →
Карелин Артем ©   (2002-10-25 15:30) [6]

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

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

---

← →
MM   (2002-10-25 16:41) [7]



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;

---

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

Текущий архив: 2002.11.07;
Скачать: CL | DM;

Наверх

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