| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Применение функции проверки... [D3, Win95/98]
Room 666 © (2002-04-21 15:28:00)Мужики !
Подскажите как применить данную функцию...
Функция проверяет, зарегистрирован ли 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
...
kig (2002-04-21 18:28:00) [1]Ну типа так:
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
Room 666 (2002-04-21 17:56:00) [2]Что... Мастерам слабо ответить на этот вопрос?
| |
