易语言取环境变量文本块源码

系统结构:取文本内容长度_,拷贝内存_,取环境变量文本_,释放环境变量文本_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取文本内容长度_
           |  |
           |  |---[dll]------   拷贝内存_
           |  |
           |  |---[dll]------   取环境变量文本_
           |  |
           |  |---[dll]------   释放环境变量文本_

调用的DLL命令:

.DLL命令 取文本内容长度_, 整数型, "kernel32.dll", "lstrlenA", , lstrlenA
    .参数 文本, 整数型, , Ptr

.DLL命令 拷贝内存_, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据地址, 文本型, 传址, lpvDest
    .参数 源数据, 整数型, , lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 取环境变量文本_, 整数型, "kernel32", "GetEnvironmentStringsA", , 为包含了当前环境字串设置的一个内存块分配和返回一个句柄。这个内存块包含了所有环境字串。各字串间用一个NULL分隔；连续两个NULL标志着列表的结尾  指向包含了环境字串的一个内存块的地址。零表示失败。会设置GetLastError

.DLL命令 释放环境变量文本_, 整数型, "kernel32", "FreeEnvironmentStringsA", , 翻译指定的环境字串块  非零表示成功，零表示失败。会设置GetLastError