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-&gt;ExeName) + "config.ini";
     TIniFile * ini = new TIniFile(strInifile);

    //AnsiString s = ini-&gt;ReadString("patient","DetailID","");
    AnsiString s = "VD-0000-20131017-1008243";
    TFrm_VisitPage * vp = new TFrm_VisitPage(NULL,s);
    vp-&gt;ShowModal();
    delete vp;
    vp = NULL;
    delete ini;
    ini = NULL;
    return 0;
}

 

转载于:https://www.cnblogs.com/luyuxibaby/p/5217324.html