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“);
}
正文 必