Delphi实现注册dll文件

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，提供给您最信赖的网络购物享受。