Программная регистрация .OCX компонентов.

← →
-=Spike=- (2002-08-15 18:58) [0]

Как программно зарегистрировать/снять регистрацию компонентов (*.ocx), Active DLL. Так, как это делает regsvr32.exe.

Нужен пример!!!

← →
-=Spike=- (2002-08-15 19:38) [1]

И Вы называете себя Мастерами? Хм...

← →
Ученик © (2002-08-15 21:39) [2]

Delphi6\Demos\ActiveX\TRegSvr

← →
TTCustomDelphiMaster © (2002-08-15 21:56) [3]

Вызываешь из *.ocx функции DLLRegisterServer/DLLUnRegisterServer

← →
-=Spike=- (2002-08-15 22:06) [4]

Ну, хорошо, хорошо... Не злитесь.

С DLLRegisterServer всё ясно, а вот с DLLUnRegisterServer не очень. Я пытаюсь снять регистрацию с библиотеки, которая отвечает за работы Проводника с ZIP файлами (WindXP), но ничего не выходит, а стандартным regsvr32.exe получаеться:

function UnRegisterOCX(FileName: string): Boolean; var OCXHand: THandle; RegFunc: TDllRegisterServer; begin OCXHand := LoadLibrary(PChar(FileName)); RegFunc := GetProcAddress(OCXHand, "DllUnregisterServer"); if @RegFunc <> nil then Result := RegFunc = S_OK else Result := False; FreeLibrary(OCXHand); end;

Жду Ваших советов. Только не нужно предлагать воспользоваться:
WinExec(PChar("regsvr32 /u custom.ocx"), SW_HIDE);
Это не профессианально!

← →
TTCustomDelphiMaster © (2002-08-15 22:13) [5]

А чему равен результат RegFunc?

← →
-=Spike=- (2002-08-15 22:27) [6]

Result := RegFunc = S_OK

А что?

← →
Romkin © (2002-08-15 22:43) [7]

НАйди в реестре ключ название - ClassID (Guid кокласса) и удали все ветки

← →
-=Spike=- (2002-08-15 22:44) [8]

> НАйди в реестре ключ название - ClassID (Guid кокласса)
> и удали все ветки

Гениально, что ещё??? (для тех, кто в танке - сие написано с иронией).

← →
TTCustomDelphiMaster © (2002-08-15 22:52) [9]

-=Spike=- (15.08.02 22:27)
Не понял. RegFunc возвращает S_OK или что-то другое.

PS: У меня Дэльфя сломалась :(
Так что на сегодня все.

← →
Romkin © (2002-08-15 22:52) [10]

Тебе надо удалить регистрацию или ассоциации с расширением?

← →
-=Spike=- (2002-08-15 23:02) [11]

> Не понял. RegFunc возвращает S_OK или что-то другое.

Так у меня тоже под рукой Делфи нет.
Я сейчас за рабочей машиной...

Но припоминаю, что ошибочка была при попытке снять регистрацию с файла...

Вообще странное дело. Странно то, что у вас с DllUnregisterServer не получается. Вы наверное будете удивлены, но знаете что делает regsvr32 /u file_name? Эта утилита выполняет код, который вы привели. Она загружает библиотеку через LoadLibrary и вызывает DllUnregisterServer, больше ничего... поэтому странно, что с помощью утилиты у вас выходит, а "в ручную" нет

← →
-=Spike=- (2002-08-16 08:34) [13]

Да мне и самому это кажеться странным, но клянусь святым Дунстаном (это из Робин Гуда) так оно и есть!

Регистрация проходит без проблем, а снятие... Главное, что другие Active Х компоненты нормально DllUnregisterServer с помощью данной функции, а эта библиотека не хочет.

Значит, скорее всего эта функция в данной библиотеке ничего не делает :-))
Просто ее не реализовали

Программная регистрация .OCX компонентов. Найти похожие ветки