Public Function FUN_REGISTRATION_DLL_OCX(STR_DLL As String) ' регистрация библиотек Dim Str_Path_WIN_SYS_OCX_DLL As String Dim Str_Path_OCX_DLL As String Call FUN_ALL_IN_LOG(Now() & " вход в процедуру" & "FUN_REGISTRATION_DLL_OCX с библиотекой = " & STR_DLL) '--------------------------------------------------------------------------- On Error GoTo FUN_REGISTRATION_DLL_OCX_Error '--------------------------------------------------------------------------- MsgBox "Укажите путь к Komponent\" & STR_DLL, vbInformation sFilter = STR_DLL & " (*.OCX)" & Chr$(0) & "*.OCX" & Chr$(0) & "All Files (*.*)" & Chr$(0) & "*.*" & Chr$(0) Str_Path_OCX_DLL = FileOpenSave(OFN_OVERWRITEPROMPT, CurDir$, sFilter, , ".OCX", , "Выбор файла", -1, True) Str_Path_WIN_SYS_OCX_DLL = FUN_Patch_File(GLB_Patch_Windows_System32, STR_DLL) Call FUN_ALL_IN_LOG(Now() & " Путь получен = " & Str_Path_OCX_DLL) If FUN_FILE_YES_NO(Str_Path_WIN_SYS_OCX_DLL) = False Then Call FUN_Copy_File(FUN_PATCH_OUT_PATCH(Str_Path_OCX_DLL), FUN_File_Name(Str_Path_OCX_DLL), GLB_Patch_Windows_System32) 'COMCTL32.OCX Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " в процедуре " & "FUN_REGISTRATION_DLL_OCX начинается регистрация " & STR_DLL) If FUN_FILE_YES_NO(Str_Path_WIN_SYS_OCX_DLL) = True Then Shell "RegSVR32.exe " & Str_Path_WIN_SYS_OCX_DLL ' FUN_Patch_File(GLB_Patch_Windows_System32 , STR_DLL)" Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_REGISTRATION_DLL_OCX закончена регистрация " & STR_DLL) End If Else Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " в процедуре " & " регистрация " & STR_DLL) Shell "RegSVR32.exe " & Str_Path_WIN_SYS_OCX_DLL ' FUN_Patch_File(GLB_Patch_Windows_System32 , STR_DLL)" Call FUN_ALL_IN_LOG(Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_REGISTRATION_DLL_OCX закончена регистрация " & STR_DLL) ' ......... /s .......... End If '--------------------------------------------------------------------------- On Error GoTo 0 Exit Function FUN_REGISTRATION_DLL_OCX_Error: Error_String = Err.Description: Call FUN_IN_TXT(FUN_Patch_File(App.Path, "Error.txt"), Now() & " _модуль " & "START_MOD" & " _процедура " & "FUN_REGISTRATION_DLL_OCX" & " ..ошибка." & Error_String) End Function

Регистрирует библиотеки.

Можно ли как то её попросить регистрацию проводить втихаря,
не орать каждый раз
такая то библиотега зарегистрирована.............

Спасибо!!!!
=======================
Вот о чём подумалось
А если не удалось зарегистрировать - она тоже , сволочь, промолчит....

=========================
А как проверить зарегина OCX или DLL