申请内存&释放内存空间 纯核心支持库实现不调用DLL - 支持全部释放的功能

CNWTEPRG

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 地址, 整数型
    
14. 
    
15. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
16. 地址 ＝ 申请或释放内存 (100, 真)
    
17. 写到内存 (“测试写入字符串”, 地址, -1)
    
18. 
    
19. 输出调试文本 (指针到文本 (地址))
    
20. 输出调试文本 (申请或释放内存 (地址, 假, 真))
    
21. 
    
22. 
    
23. 
    
24. .子程序 申请或释放内存, 整数型, 公开, 申请:成功返回地址，失败返回0 释放:成功返回1，失败返回0
    
25. .参数 长度或地址, 整数型, , 申请提供长度，释放提供地址
    
26. .参数 申请或释放, 逻辑型, , 真为申请 假为释放，释放后不得再进行读写
    
27. .参数 全部释放, 逻辑型, 可空, 此选项为真则释放所有此函数申请的内存，成功返回1，失败返回0
    
28. .局部变量 内存, 字节集, 静态, "0"
    
29. .局部变量 地址表, 整数型, 静态, "0"
    
30. .局部变量 偏移, 整数型
    
31. 
    
32. .如果真 (全部释放)
    
33.     .如果真 (取数组成员数 (地址表) ＝ 0)
    
34.         返回 (0)
    
35.     .如果真结束
    
36.     重定义数组 (地址表, 假, 0)
    
37.     重定义数组 (内存, 假, 0)
    
38.     返回 (1)
    
39. .如果真结束
    
40. .如果真 (申请或释放)
    
41.     .如果真 (长度或地址 ≤ 0)
    
42.         返回 (0)
    
43.     .如果真结束
    
44.     加入成员 (内存, 取空白字节集 (长度或地址))
    
45.     偏移 ＝ 取字节集数据地址 (内存 [取数组成员数 (内存)])
    
46.     加入成员 (地址表, 偏移)
    
47.     返回 (偏移)
    
48. .如果真结束
    
49. .计次循环首 (取数组成员数 (地址表), 偏移)
    
50.     .如果真 (地址表 [偏移] ＝ 长度或地址)
    
51.         删除成员 (地址表, 偏移, 1)
    
52.         删除成员 (内存, 偏移, 1)
    
53.         返回 (1)
    
54.     .如果真结束
    
55. 
    
56. .计次循环尾 ()
    
57. 返回 (0)
    
58. 
    
59. 
    
60. 
    
61. 
    
62. .子程序 取字节集数据地址, 整数型, 公开
    
63. .参数 字节集, 字节集
    
64. 
    
65. 置入代码 ({ 139, 69, 8, 139, 0, 131, 192, 8, 201, 194, 4, 0 })
    
66. ' mov eax,[ebp+8]
    
67. ' mov eax,[eax]
    
68. ' add eax,8
    
69. ' leave
    
70. ' retn 4
    
71. 返回 (0)
    

复制代码

520

还有这方法啊...