(五) 使用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