CLSIDFromProgID

← →
GanibalLector © (2004-09-22 21:12) [0]

Какой результат вернет этот код,если не установлен 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;

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

← →
DiamondShark © (2004-09-22 21:32) [1]

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

← →
GanibalLector © (2004-09-22 21:43) [2]

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

← →
Ломброзо © (2004-09-22 21:49) [3]

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

← →
GanibalLector © (2004-09-23 00:01) [4]

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

← →
DiamondShark © (2004-09-23 00:11) [5]

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

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

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

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

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

CLSIDFromProgID Найти похожие ветки