Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c