易语言动态调用dll函数源码

admin

直接看代码：

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 窗口程序集_启动窗口
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. ' 与DLL进行通信
   
9. ' 1、调用DLL里面的方法资源
   
10. ' 2、传递一些参数到DLL
    
11. 
    
12. .子程序 _按钮1_被单击
    
13. .局部变量 hadress, 整数型
    
14. .局部变量 返回值
    
15. .局部变量 Dhwnd
    
16. 
    
17. Dhwnd ＝ LoadLibraryA (取运行目录 () ＋ “\dll.dll”)
    
18. .如果真 (Dhwnd ＝ 0)
    
19.     信息框 (“加载DLL失败”, 0, , )
    
20.     返回 ()
    
21. .如果真结束
    
22. 调试输出 (Dhwnd)
    
23. 
    
24. hadress ＝ GetProcAddress (Dhwnd, “add”)
    
25. .如果真 (hadress ＝ 0)
    
26.     信息框 (“获取接口地址失败”, 0, , )
    
27.     返回 ()
    
28. .如果真结束
    
29. 
    
30. 调试输出 (hadress)
    
31. ' 怎么样来执行这个 add函数方法？？？
    
32. ' 调用子程序（）
    
33. .如果真 (调用子程序 (hadress, , 返回值, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容)))
    
34.     信息框 (返回值, 0, , )
    
35. .如果真结束
    
36. 
    
37. FreeLibrary (Dhwnd)
    
38. 
    
39. .子程序 _按钮2_被单击
    
40. .局部变量 hadress, 整数型
    
41. .局部变量 返回值
    
42. .局部变量 Dhwnd
    
43. 
    
44. Dhwnd ＝ LoadLibraryA (取运行目录 () ＋ “\dll.dll”)
    
45. .如果真 (Dhwnd ＝ 0)
    
46.     信息框 (“加载DLL失败”, 0, , )
    
47.     返回 ()
    
48. .如果真结束
    
49. 
    
50. 调试输出 (Dhwnd)
    
51. 
    
52. hadress ＝ GetProcAddress (Dhwnd, “sub”)
    
53. .如果真 (hadress ＝ 0)
    
54.     信息框 (“获取接口地址失败”, 0, , )
    
55.     返回 ()
    
56. .如果真结束
    
57. 
    
58. 调试输出 (hadress)
    
59. ' 怎么样来执行这个 add函数方法？？？
    
60. ' 调用子程序（）
    
61. 调用子程序 (hadress, , 返回值, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容))
    
62. 信息框 (返回值, 0, , )
    
63. FreeLibrary (Dhwnd)
    

复制代码

用到的dll命令：

1. .版本 2
   
2. 
   
3. .DLL命令 LoadLibraryA, 整数型, "kernel32", "LoadLibraryA", , 指定的可执行模块映射到调用进程的地址空间
   
4.     .参数 lpLibFileName, 文本型, , 一个空终止字符串名称可执行模块的指针（一个DLL或EXE文件。。）。指定的名称是模块的文件名不是存储在库模块的名字本身相关，通过在模块定义图书馆关键字指定（DEF文件。）
   
5. 
   
6. .DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 从指定的动态链接库中检索一个导出的函数或变量的地址
   
7.     .参数 模块句柄, 整数型, , 用LoadLibrary或getmodulehandle函数返回的句柄
   
8.     .参数 函数名称, 文本型, , 函数名称
   
9. 
   
10. .DLL命令 FreeLibrary, 逻辑型, "kernel32.dll", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary API函数装载的,真 表示成功，假 表示失败。
    
11.     .参数 hLibModule, 整数型, , 要释放的一个库句柄
    

复制代码

test111

这个非常好啊