Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Установлен ли на компе Ms Excel, Как определить? 
:(
    Опции темы
andrey_post
  Дата 30.3.2004, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет
У меня программка отчет о своей работе выгружает в Excel. Но на компе где эта фича не установлена, вылазит сообщение наподобие "...нет такого класса...".
Вообщем как определить, установлен Excel или нет? notify.gif

--------------------
И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!
PM MAIL WWW ICQ   Вверх
X-Vlad
Дата 30.3.2004, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Код
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;

function check_excel:boolean;                            
begin
if not IsOLEObjectInstalled('Excel.Application') then
 result:=false
else
 result:=true;
end;



--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
Maverick
Дата 30.3.2004, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1307
Регистрация: 22.9.2003
Где: Odessa, Ukraine

Репутация: 2
Всего: 10
Цитата
У меня программка отчет о своей работе выгружает в Excel. Но на компе где эта фича не установлена, вылазит сообщение наподобие "...нет такого класса...".
Вообщем как определить, установлен Excel или нет? 


А я вот это сообщение на try except ловлю и и меняю на "Где Excell? Вызывайте системотехника... " cool.gif



--------------------
smile
PM ICQ GTalk   Вверх
andrey_post
Дата 30.3.2004, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет
Большой сенькс! Завтра с утра поюзаю! thumbs-up.gif
--------------------
И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!
PM MAIL WWW ICQ   Вверх
andrey_post
  Дата 31.3.2004, 05:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет
TCLSID - что это? (спрашивает Delphi 6)
Говорит не диклорировано... bored.gif
--------------------
И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!
PM MAIL WWW ICQ   Вверх
Akella
Дата 31.3.2004, 08:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Цитата
TCLSID - что это? (спрашивает Delphi 6)
Говорит не диклорировано...


Попробуй добавить секцию "USE" ComObj или OleCtrl сейчас не помню, если не ответят раньше меня, то немножечко позже выложу.
PM MAIL   Вверх
Maverick
Дата 31.3.2004, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1307
Регистрация: 22.9.2003
Где: Odessa, Ukraine

Репутация: 2
Всего: 10
ComObj


--------------------
smile
PM ICQ GTalk   Вверх
andrey_post
  Дата 31.3.2004, 10:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 109
Регистрация: 23.12.2003
Где: Екатеринбург

Репутация: нет
Всего: нет
Цитата(dsergey @ 31.3.2004, 11:18)
Цитата
TCLSID - что это? (спрашивает Delphi 6)
Говорит не диклорировано...


Попробуй добавить секцию "USE" ComObj или OleCtrl сейчас не помню, если не ответят раньше меня, то немножечко позже выложу.

Скорее всего OLE, т.к. я его от туда убрал по некоторым причинам, а ComObj стоит.
--------------------
И что бы там не происходило, не стоит воспринимать жизнь слишком всерьёз, всё равно нам из неё живыми не выбраться!!!
PM MAIL WWW ICQ   Вверх
Jey_k
Дата 31.3.2004, 11:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


WEB-командир
****


Профиль
Группа: Комодератор
Сообщений: 4149
Регистрация: 16.11.2003
Где: Москва

Репутация: 1
Всего: 61
andrey_post
Можно еще поиском в системном реестре

HKEY_LOCAL_MACHINE -> software -> Microsoft -> Office ->10.0{ у меня} -> Excel ->
InstallRoot -> Path{значение записанное здесь заодно и путь подскажет}

Функция поиска в реестре есть в любом нормальном учебнике, да и в FAQ на форуме наверняка имеется


--------------------
Проверка IP

user posted image
PM MAIL WWW   Вверх
X-Vlad
Дата 31.3.2004, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 570
Регистрация: 10.4.2002
Где: Украина, Львов

Репутация: 1
Всего: 5
Подключи -
Код
Uses ActiveX


Будет работать ... smile.gif


--------------------
Хорошая штука - комп..:)
www.x-vlad.com
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0863 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.