阿杰 发表于 2011-10-10 11:41:43

VC调用易语言支持库

// 加载支持库
    HMODULE hMod = LoadLibrary("C:\\krnln.fne");
    // 取得支持库导出函数地址
    PFN_GET_LIB_INFO GetNewInf = (PFN_GET_LIB_INFO)GetProcAddress(hMod, "GetNewInf");
    // 取得支持库信息
    PLIB_INFO pLibInfo = GetNewInf();
    // 取得支持库函数信息列表
    PCMD_INFO pCmdInfo = pLibInfo->m_pBeginCmdInfo;
    // 取得支持库函数地址列表
    PFN_EXECUTE_CMD *pFnExecuteCmd = pLibInfo->m_pCmdsFunc;
    // 查找函数
    for(int i=0; i<pLibInfo->m_nCmdCount; i++)
    {
      // 判断是否为“信息框”函数
      if( strcmp(pCmdInfo.m_szName, "信息框") == 0 )
      {
            // 取得“信息框”函数地址
            PFN_EXECUTE_CMD fnMsgBox = pFnExecuteCmd;
            // 准备调用参数
            MDATA_INF RetData;
            RetData.m_dtDataType = SDT_INT;
            MDATA_INF ArgInf;
            ArgInf.m_pText = "hello world!";
            ArgInf.m_dtDataType = SDT_TEXT;
            ArgInf.m_int = MB_OK;
            ArgInf.m_dtDataType = SDT_INT;
            ArgInf.m_pText = "caption";
            ArgInf.m_dtDataType = SDT_TEXT;
            // 调用“信息框”函数
            fnMsgBox(&RetData, 3, &ArgInf);
      }
    }
    // 释放支持库
    FreeLibrary(hMod);来源:http://bbs.eyuyan.com/read.php?tid=281391&fpage=3

Tesla.Angela 发表于 2011-10-12 12:17:02

有必要么？！！！

upring 发表于 2015-6-9 12:54:14

高手就是 不一般
页: [1]
查看完整版本: VC调用易语言支持库