Текущий архив: 2004.10.10;
Скачать: CL | DM;
Вниз
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, и будет тебе щасье.
А ты, никак, эксель сносить собрался?
← →
Ломброзо © (2004-09-23 00:21) [6]Извиняюсь, не желал задеть.
А вообще, на всякий случай - есть полезнейшая функция OleCheck, анализирующая возвращаемый HRESULT и кидающая при необходимости исключение с осмысленным описанием. Мне вот вылезло EOleSysError "Недопустимая строка с указанием класса"
← →
GanibalLector © (2004-09-23 00:21) [7]>Задай заведомо несуществующий ProgID, и будет тебе щасье.
О...я и не подумал.Спасибо!!!
← →
GanibalLector © (2004-09-23 00:24) [8]Спасибо,еще раз.Когда его нет,то CO_E_CLASSSTRING
Страницы: 1 вся ветка
Текущий архив: 2004.10.10;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.021 c
