type
TDllRegisterServer=function:HResult; stdcall;
Procedure RegisterDll(DllName: String);
Var
h: HModule;
Ocx: TDllRegisterServer;
Begin
h := 0;
Try
h := LoadLibrary(PChar(DllName));
If h = 0 Then
Begin
Application.MessageBox(PAnsiChar('注册' + DllName + '失败!请检查该文件是否存在!'), '提示', MB_ICONERROR);
End
Else
Begin
@Ocx := GetProcAddress(h, 'DllRegisterServer');
Ocx;
End;
Except
Application.MessageBox(PAnsiChar('注册' + DllName + '失败!请检查该文件是否存在!'), '提示', MB_ICONERROR);
End;
FreeLibrary(h);
End;
www.taoyou100.cn 淘友100 满意100,提供给您最信赖的网络购物享受。