Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизПрименение функции проверки... Найти похожие ветки
← →
kig (2002-04-21 18:28) [2]Ну типа так:
If CheckClass("Word.Application") then ...
или
If CheckClass("ADODB.Command") then ...
и т.п. - аналогично параметру в ф-ции
CreateOleObject(const ClassName: string): IDispatch.
Только лучше
CheckClass:=CoCreateInstance(ProgIDToClassID(OLEClassName), nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Obj) =S_OK;
заменить на
CheckClass:=CoCreateInstance(ProgIDToClassID(OLEClassName), nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, Obj) =S_OK;</CODE
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c