(五) 使用DLL函数

1、使用步骤如下：

1.  首先声明函数：

 prototype 函数名(形参列表);

2.  使用内置函数UseDLL函数将DLL文件调入内存

3.  接着，调用已声明过的DLL函数

4.  使用内置函数UnUseDLL函数将DLL文件从内存中释放出来。

 

  1 #define  DLL_FILE "C:\\Windebug\\MYDLL.DLL"

 2 //声明在MYDLL文件中定义的MydllReturn函数
 3 prototype MYDLL.MydllReturn(int, POINTER);
 4 
 5 STRING szDLL, svString;
 6 INT nValue;
 7 POINTER psvString;
 8 NUMBER nResult;
 9 
10 program
11   szDLL = DLL_FILE;
12 
13   // 将MYDLL.DLL文件调入内存
14 
15   nResult = UseDLL(szDLL);
16   if(nResult != 0)
17     abort;
18   endif;
19 
20   // 调用DLL函数
21   MydllReturn(nValue, psvString);
22 
23   //将MYDLL.DLL文件从内存中释放出来
24   if(UnUseDLL(szDLL)<0) then
25     MessageBox("failed", SEVERE);
26   else
27     MessageBox("Success", INFORMATION);
28   endif;
29 
30   endprogram