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
|