VC调用易语言支持库

阿杰

1. // 加载支持库
   
2.     HMODULE hMod = LoadLibrary("C:\\krnln.fne");
   
3.     // 取得支持库导出函数地址
   
4.     PFN_GET_LIB_INFO GetNewInf = (PFN_GET_LIB_INFO)GetProcAddress(hMod, "GetNewInf");
   
5.     // 取得支持库信息
   
6.     PLIB_INFO pLibInfo = GetNewInf();
   
7.     // 取得支持库函数信息列表
   
8.     PCMD_INFO pCmdInfo = pLibInfo->m_pBeginCmdInfo;
   
9.     // 取得支持库函数地址列表
   
10.     PFN_EXECUTE_CMD *pFnExecuteCmd = pLibInfo->m_pCmdsFunc;
    
11.     // 查找函数
    
12.     for(int i=0; i<pLibInfo->m_nCmdCount; i++)
    
13.     {
    
14.         // 判断是否为“信息框”函数
    
15.         if( strcmp(pCmdInfo[i].m_szName, "信息框") == 0 )
    
16.         {
    
17.             // 取得“信息框”函数地址
    
18.             PFN_EXECUTE_CMD fnMsgBox = pFnExecuteCmd[i];
    
19.             // 准备调用参数
    
20.             MDATA_INF RetData;
    
21.             RetData.m_dtDataType = SDT_INT;
    
22.             MDATA_INF ArgInf[3];
    
23.             ArgInf[0].m_pText = "hello world!";
    
24.             ArgInf[0].m_dtDataType = SDT_TEXT;
    
25.             ArgInf[1].m_int = MB_OK;
    
26.             ArgInf[1].m_dtDataType = SDT_INT;
    
27.             ArgInf[2].m_pText = "caption";
    
28.             ArgInf[2].m_dtDataType = SDT_TEXT;
    
29.             // 调用“信息框”函数
    
30.             fnMsgBox(&RetData, 3, &ArgInf[0]);
    
31.         }
    
32.     }
    
33.     // 释放支持库
    
34.     FreeLibrary(hMod);

复制代码

来源:http://bbs.eyuyan.com/read.php?tid=281391&fpage=3

Tesla.Angela

有必要么？！！！

upring

高手就是 不一般