Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];




Наверх







Память: 0.74 MB
Время: 0.021 c
6-2638            cypher                2002-02-19 00:49  2002.05.02  
HOST - IP


14-2673           SPeller               2002-03-27 11:07  2002.05.02  
Вопрос не о Дельфи


3-2465            Tolstomordik          2002-04-11 10:00  2002.05.02  
Сохранение результатов SQL-запроса во внешний файл.


3-2461            MCFire                2002-04-10 18:31  2002.05.02  
Как грамотно составить TreeView из таблицы?


3-2466            Igor_                 2002-04-11 09:59  2002.05.02  
Отладка хранимой процедуры в InterBase