Несколько вопросов касающихся ActiveX DLL

[coder]

Во-первых: При компиляции ActiveX DLL VB5 создаёт 3 файла DLL, EXP, LIB. Можно ли удалить всё кроме DLL’а? У мена работает всё и так. Будет ли работать у других?
Во-вторых: При запуске программы на чужом компьютере использующей сделанный мной ActiveX DLL, его необходимо зарегистрировать. Для этого я использую программу RegSvr32. Программно это я реализую так:

Private Sub Form_Load()
On Error GoTo fixerror

Set ML = New MyLib
Exit Sub

fixerror:
Shell GetSysDir & "\regsvr32.exe " & GetSysDir & "\MyLibrary.dll /s", vbHide
Set ML = New MyLib
End Sub

Может быть есть более удобные и правильные способы?

[lenar]

Есть лучше способ:

Код: Выделить всё

Public Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

Public Function Register_OCX_DLL(Wnd As Long, Path As String, Reg As Boolean)
    On Error Resume Next
    Dim LB As Long, PA As Long
    LB = LoadLibrary(Path)
    If Reg = True Then
     PA = GetProcAddress(LB, "DllRegisterServer")
    Else
     PA = GetProcAddress(LB, "DllUnregisterServer")
    End If
    If PA > 0 Then
        Call CallWindowProc(PA, Wnd, ByVal 0&, ByVal 0&, ByVal 0&)
        Call FreeLibrary(LB)
    End If
End Function

[Хой]

Во-первых: При компиляции ActiveX DLL VB5 создаёт 3 файла DLL, EXP, LIB. Можно ли удалить всё кроме DLL’а? У мена работает всё и так. Будет ли работать у других?

Будет (по крайней мере у меня работало), так как эти файлы создадутся после первого обращения к DLL'шке.
А если даже и не создадутся, то всё равно всё будет работать и бе них!