BCB中OCX与DLL文件的注册与反注册方法

1、设计好应用程序后，需要布署应用程序。如果你的程序使用了OCX或者DLL等文件，这些文件是自己设计的或者是BCB自带的，这些程序需要注册，你的系统才能够正常运行。这就需要会写注册与反注册函数。
2、注册函数与反注册函数的使用方法：
在Form1类的公有部分写下面两个成员函数：
///注册函数
bool __fastcall RegistOcx(AnsiString ocxname);
////反注册函数
bool __fastcall UnRegistOcx(AnsiString ocxname);
以上两个公有成员函数它们的代码：
////---------------------------------------------------------------------------
bool __fastcall TForm1::RegistOcx(AnsiString ocxname)
{
  HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  FARPROC lpDllEntryPoint;

  if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  {
    return False;
  }

  lpDllEntryPoint = GetProcAddress(hLib,"DllRegisterServer");
  if(lpDllEntryPoint!=NULL)
  {
    if(FAILED((*lpDllEntryPoint)()))
    {
      ShowMessage("调用DllRegisterServer失败");
      FreeLibrary(hLib);
      return False;
    };
    ShowMessage("注 册 成 功");
    return True;
  }
  else
  {
    ShowMessage("调用DllRegisterServer 失 败 ！");
    return False;
  }
}
////---------------------------------------------------------------------------
bool __fastcall TForm1::UnRegistOcx(AnsiString ocxname)
{
  HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  FARPROC lpDllEntryPoint;

  if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  {
    return False;
  }

  lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");
  if(lpDllEntryPoint!=NULL)
  {
    if(FAILED((*lpDllEntryPoint)()))
    {
      ShowMessage("调用DllUnregisterServer失败");
      FreeLibrary(hLib);
      return False;
    };
    ShowMessage("反 注 册 成 功");
    return True;
  }
  else
  {
    ShowMessage("调用DllUnregisterServer 失 败 ！");
    return False;
  }
}

以上两个成员函数的调用示例：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  RegistOcx("VCF132.ocx");
  ////RegistOcx(“MIDAS.dll“);
}
////---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  UnRegistOcx("vcf132.ocx");
  ////UnRegisterOcx(“MIDAS.dll“);
}

正文  必

本文地址：http://com.8s8s.com/it/it25050.htm