Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
ВнизПрименение функции проверки... Найти похожие ветки
← →
Room 666 (2002-04-21 15:28) [0]Мужики !
Подскажите как применить данную функцию...
Функция проверяет, зарегистрирован ли OCX/DLL файл.
uses
ComObj, ActiveX;
Function CheckClass(OLEClassName:string):boolean;
begin
CheckClass:=CoCreateInstance(ProgIDToClassID(OLEClassName), nil,
CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IDispatch, Obj) =S_OK;
end;
Пример использования:
If CheckClass( что здесь? как сюда имя файла подставить? ) then
...
else
...
← →
Room 666 (2002-04-21 17:56) [1]Что... Мастерам слабо ответить на этот вопрос?
← →
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.45 MB
Время: 0.004 c