Регистрация dll средствами VB на Windows 8

[shahmatist]

Пробовал так:

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

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

Function registerDll(dllname As String) As Boolean
Dim hLib As Long
Dim hProc As Long

hLib = LoadLibrary(dllname)
If hLib = 0 Then
    registerDll = False
    Exit Function
End If
hProc = GetProcAddress(hLib, "DllRegisterServer")
If hProc = 0 Then
    FreeLibrary hLib
    registerDll = False
    Exit Function
End If

CallWindowProc hProc, 0, 0, 0, 0

FreeLibrary hLib

registerDll = True
End Function

на xp и вин7 работает. (На вин7 правда нужно запустить от имени админа). На вин8 не работает, даже если запустить от админа. Подскажите в каком направлении рыть?

[Хакер]

на xp и вин7 работает. (На вин7 правда нужно запустить от имени админа).

1) А под XP не нужно? Тоже нужно.

Подскажите в каком направлении рыть?

2) regsvr32 остался под Win8? Можно его поотлаживать и посмотреть, как он это делает, если делает успешно.

3) Вышеприведённый код ужасен и непонятно, вообще каким чудом работает.
Функция DllRegisterServer не принимает ни одного аргументы.
Функция CallWindowProc может быть использована только в отношении функций, ожидающих и принимающих 4 аргумента.
В противном случае происходит нарушение стека, потому что регистр ESP отматывается больше или меньше, чем надо (в данном случае — больше).

Для вызова любых функций (функций с любым кол-вом и видом аргументов) надо использовать мой кирпич для вызова по указателям (топик о способе — тут).

4) Так или иначе, фраза «не работает» содержит ровно 0 процентов информации. Нужно писать, что именно происходит? Креш процесса? Не происходит регистрации? Какая функция возвращает код сбоя? Каков Err.LastDllError ?

5) В некоторых случаев может быть приемлемым просто запускать regsvr32.

[shahmatist]

4) Так или иначе, фраза «не работает» содержит ровно 0 процентов информации. Нужно писать, что именно происходит? Креш процесса? Не происходит регистрации? Какая функция возвращает код сбоя? Каков Err.LastDllError ?

Ошибок не выдает, регистрация не происходит.

[Хакер]

Не происходит регистрации? Какая функция возвращает код сбоя? Каков Err.LastDllError ?

[Mikle]

В код не смотрел, но на всякий случай напишу - сталкивался с ситуацией, что regsvr32 MyDll.dll в Win8 не работает, хотя папка, содержащая MyDll.dll, является текущей. Если прописать полный путь - работает.