из командного окна:

regsvr32 [полный путь и имя файла библиотеки или контрола]

перед путем и именем возможны ключи

/s - выполнять тихо, без сообщений

/u - разрегистрировать (не по-русски как-то правда

Ответить

Цитирую статью, где откопал, не помню, так что сори, копирайта не будет.

Начало цитаты.

Программная регистрация ActiveX DLL и OCX

Обычно регистрация (или ее отмена) ActiveX-компонентов выполняется с помощью автономной утилиты regsvr32.exe. Если необходимо выполнять процедуры регистрации в момент выполнения вашего VB-приложения, то можно воспользоваться обращением к этой утилите с помощью Shell. Однако существует еще один способ проведения таких операций, недостатком которого является необходимость "железного" включения имени нужного компонента в код программы.

Дело в том, что каждый ActiveX-компонент (ActiveX DLL или OCX) имеет функции DllRegisterServer и DllUnregisterServer, выполняющие операции регистрации/отмены регистрации над собственным компонентом. И обратиться к ним можно напрямую, как к обычной DLL-функции.

Например, если вы хотите программно проводить операции регистрации компонента COMCTL32.OCX, то в программе нужно описать две такие функции:

' функция регистрации компонента COMCTL32.OCXDeclare Function RegComCtl32 Lib "COMCTL32.OCX" Alias _      DllRegisterServer() As Long' функция отмены регистрации компонента COMCTL32.OCXDeclare Function UnRegComCtl32 Lib "COMCTL32.OCX" Alias _    DllUnregisterServer() As Long

Однако следует иметь в виду, что если вы не указали полный путь к файлу, то его поиск будет осуществляться только в системном или текущем каталоге. Кроме того, при выполнении операций целесообразно реализовать механизм анализа возможных ошибок.

Приведем пример кода регистрации библиотеки Test.DLL, которая хранится в произвольном каталоге C:\MyApp:

Declare Function RegTestDLL Lib "Test.DLL" Alias _      DllRegisterServer() As Long  Const ERROR_SUCCESS = 0&im retCode As LongOn Error Resume Next  ' включаем программную обработку ошибокChDrive "C:"        ' Устанавливаем нужныйChDir "C:\MyApp"    ' каталог текущимregCode = RegTestDLL()  ' регистрация Test.DLL' анализ возможных ошибокIf Err <> 0 Then  MsgBox "Файл Test.DLL не найден"Else    If regCode <> ERROR_SUCCES Then      MsgBox "Операция регистрации не выполнена"  End If  End If  

Конец цитаты.

Желаю успеха, Irbis

 Если вам глядя на компьютер, все чаще, хочется взять молоток ...

,пора подумать о визите к психиатору илм модернизации. 

Ответить

Что то не получилось форматирование, поэтому продублирую.

Обычно регистрация (или ее отмена) ActiveX-компонентов выполняется с помощью автономной утилиты regsvr32.exe.
Если необходимо выполнять процедуры регистрации в момент выполнения вашего VB-приложения, то можно воспользоваться
обращением к этой утилите с помощью Shell. Однако существует еще один способ проведения таких операций,
недостатком которого является необходимость "железного" включения имени нужного компонента в код программы.

Дело в том, что каждый ActiveX-компонент (ActiveX DLL или OCX) имеет функции DllRegisterServer и DllUnregisterServer,
выполняющие операции регистрации/отмены регистрации над собственным компонентом. И обратиться к ним можно напрямую, как к обычной DLL-функции.

Например, если вы хотите программно проводить операции регистрации компонента COMCTL32.OCX, то в программе нужно описать две такие функции:

' функция регистрации компонента COMCTL32.OCX
Declare Function RegComCtl32 Lib "COMCTL32.OCX" Alias _ 
    DllRegisterServer() As Long
' функция отмены регистрации компонента COMCTL32.OCX
Declare Function UnRegComCtl32 Lib "COMCTL32.OCX" Alias _
    DllUnregisterServer() As Long

Однако следует иметь в виду, что если вы не указали полный путь к файлу, то его поиск будет осуществляться только в системном или текущем каталоге. Кроме того, при выполнении операций целесообразно реализовать механизм анализа возможных ошибок.

Приведем пример кода регистрации библиотеки Test.DLL, которая хранится в произвольном каталоге C:\MyApp:

Declare Function RegTestDLL Lib "Test.DLL" Alias _ 
    DllRegisterServer() As Long 
Const ERROR_SUCCESS = 0&
Dim retCode As Long
On Error Resume Next  ' включаем программную обработку ошибок
ChDrive "C:"        ' Устанавливаем нужный
ChDir "C:\MyApp"    ' каталог текущим
regCode = RegTestDLL()  ' регистрация Test.DLL
' анализ возможных ошибок
If Err <> 0 Then
  MsgBox "Файл Test.DLL не найден"
Else 
  If regCode <> ERROR_SUCCES Then 
    MsgBox "Операция регистрации не выполнена"
  End If 
End If 

Ответить

Забавная возможность. Надо будет поюзать Хотя метод с regsvr32 меня еще не разу не подводил

Ответить

Подводить то он может и не подводит, но и ошибки при регистрации тоже получить невозможно. Такие как отказ регистрации, при запуске пользователем с огрониченными правами.

Желаю удачи.

Irbis

Ответить

Попробовал, в принципе работает с поправкой синтаксиса:

Declare Function RegTestDLL Lib "Test.DLL" Alias _

"DllRegisterServer" () As Long

Хотя надо сказать, что regsvr32 работал у меня и у пользователей с ограниченными правами.

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить

Ответить