注册DLL的API函数是什么？

[CALM]

有没有例子呀？我不是想要那个什么regsvr32的方法，我记得好象是LoadLibrary?
但是实在是不知道怎么用，真是不好意思，有谁来帮帮忙？

[CALM]

而且按照这个方法在win98下面会出错误

[saucer]

HOWTO: Programmatically Register and Unregister .OCX Files
http://support.microsoft.com/default.aspx?scid=KB;EN-US;q173091&

[saucer]

sorry, try something like

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

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 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

Private Const ERROR_SUCCESS = &H0

Dim lb As Long, pa As Long
lb = LoadLibrary(DllServerPath) 'change DllServerPath to the Path to your DLL

pa = GetProcAddress(lb, "DllRegisterServer")

If CallWindowProc(pa, hWnd, ByVal 0&, ByVal 0&, ByVal 0&) =
ERROR_SUCCESS Then
MsgBox "Successful"
End If

FreeLibrary lb

actually, you could just call
shell "regsv32 " & PathToYourDLL

[vqunjian]

HINSTANCE hLib = LoadLibrary(pszDllName);

if (hLib < (HINSTANCE)HINSTANCE_ERROR)
{
DisplayMessage(IDS_LOADLIBFAILED, pszDllName); //unable to load DLL
iReturn = FAIL_LOAD; //unable to load DLL
}

// Find the entry point.
(FARPROC&)lpDllEntryPoint = GetProcAddress(hLib,
_T(“DllRegisterServer”));
if (lpDllEntryPoint != NULL)
(*lpDllEntryPoint)();
else
//unable to locate entry point

[CALM]

as you known,"regsvr32" does not work well sometimes

[CALM]

楼上两位给我的例子好象是调用DLL的方法啊，我需要的是注册DLL的方法
GetProcAddress不是找到DLL中函数地址的API么？