BCB 调用DLL
HINSTANCE Hdl; int __stdcall (*ShowPage)();//定义函数原型 AnsiString disExeFile = ExtractFileDir(Application->ExeName)+"\ProjectDLL.dll"; Hdl = ::LoadLibrary(disExeFile.c_str()); //载入DLL if(Hdl != NULL) { ShowPage = (int __stdcall (*)())::GetProcAddress(Hdl,"ShowPage"); //获取函数入口地址 if(ShowPage != NULL) { ShowPage() ; //调用DLL中函数 } else { ShowMessage("不能找到函数入口!"); } ::FreeLibrary(Hdl);释放DLL } else { ShowMessage("不能载入DLL!"); } //-----------------------------------------------------------------------// #pragma argsused extern "C" __declspec(dllexport) int __stdcall ShowPage(); int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason <a href="http://www.ticketcitybowl.com/">Viagra 100mg</a>, void* lpReserved) { return 1; } //--------------------------------------------------------------------------- extern "C" __declspec(dllexport) int __stdcall ShowPage() { AnsiString strInifile = ExtractFilePath (Application->ExeName) + "config.ini"; TIniFile * ini = new TIniFile(strInifile); //AnsiString s = ini->ReadString("patient","DetailID",""); AnsiString s = "VD-0000-20131017-1008243"; TFrm_VisitPage * vp = new TFrm_VisitPage(NULL,s); vp->ShowModal(); delete vp; vp = NULL; delete ini; ini = NULL; return 0; }