Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

Применение функции проверки...   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
1-2619
Cansas & Rush
2002-04-19 23:30
2002.05.02
Как в Image получить иконку связанную с любым файлом?


3-2478
Донской
2002-04-11 11:14
2002.05.02
Лишнее?


3-2467
Limonad
2002-04-11 08:53
2002.05.02
Как удалить сразу несколько записей в базе данных?


3-2484
Hermit
2002-04-10 10:14
2002.05.02
Системные настройки BDE (все еще актуально)


7-2707
FlexX
2002-02-06 15:16
2002.05.02
Как узнать, что идет копирование (удаление) файлов?