Форум: "Основная";
Текущий архив: 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
...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.02;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c