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

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

CLSIDFromProgID

GanibalLector ©   (2004-09-22 21:12:00) 

Какой результат вернет этот код,если не установлен Excel ???


uses activeX;

procedure TForm1.Button1Click(Sender: TObject);
var ClassID:TCLSID;i:integer;
begin
i:=CLSIDFromProgID('Excel.Application', ClassID);
case i of
S_OK:                          Caption:='S_Ok';
CO_E_CLASSSTRING:              Caption:='CO_E_CLASSSTRING';
REGDB_E_WRITEREGDB:            Caption:='REGDB_E_WRITEREGDB';
E_OUTOFMEMORY:                 Caption:='E_OUTOFMEMORY';
E_INVALIDARG:                  Caption:='E_INVALIDARG';
E_UNEXPECTED:                  Caption:='E_UNEXPECTED';
else
Caption:='m-da!!!';
end;
end;



З.Ы. Я б и сам,да дистрибутив потерял...млин
З.З.Ы.(к модераторам) А удалять за что???Вроде нормальный вопрос.

---

GanibalLector   (2004-09-23 00:24:00) [1]

Спасибо,еще раз.Когда его нет,то CO_E_CLASSSTRING

---

Ломброзо   (2004-09-23 00:21:00) [2]

Извиняюсь, не желал задеть.
А вообще, на всякий случай - есть полезнейшая функция OleCheck, анализирующая возвращаемый HRESULT и кидающая при необходимости исключение с осмысленным описанием. Мне вот вылезло EOleSysError "Недопустимая строка с указанием класса"

---

GanibalLector   (2004-09-23 00:21:00) [3]

>Задай заведомо несуществующий ProgID, и будет тебе щасье.
О...я и не подумал.Спасибо!!!

---

DiamondShark   (2004-09-23 00:11:00) [4]

Чего ты тормозишь? Тебе абсолютно верный ответ дали.
Задай заведомо несуществующий ProgID, и будет тебе щасье.

А ты, никак, эксель сносить собрался?

---

GanibalLector   (2004-09-23 00:01:00) [5]

Ну,началось...Вот от Вас,Ломброзо не ожидал такого.

---

Ломброзо   (2004-09-22 21:49:00) [6]

Вставьте вместо 'Excel.Application' 'Александр.Сергеевич.Пушкин' и ещё раз запустите

---

GanibalLector   (2004-09-22 21:43:00) [7]

А самому запустить?
Я и так запускал.Рузультат S_OK.
Мне необходимо узнать,что будет,когда Excel не установлен.

---

DiamondShark   (2004-09-22 21:32:00) [8]

А самому запустить?

---

Наверх