易语言Ansi与Unicode转换源码

系统结构:AnsiToUnicode,UnicodeToAnsi,AnsiToUnicode2,UnicodeToAnsi2,RtlAnsiStringToUnicodeString,RtlUnicodeStringToAnsiString,RtlFreeUnicodeString,RtlFreeAnsiString,分配虚拟页_,释放虚拟页_,取字节集变量地址_,取文本量地址_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ AnsiToUnicode
           |  |
           |  |------ UnicodeToAnsi
           |  |
           |  |------ AnsiToUnicode2
           |  |
           |  |------ UnicodeToAnsi2
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RtlAnsiStringToUnicodeString
           |  |
           |  |---[dll]------   RtlUnicodeStringToAnsiString
           |  |
           |  |---[dll]------   RtlFreeUnicodeString
           |  |
           |  |---[dll]------   RtlFreeAnsiString
           |  |
           |  |---[dll]------   分配虚拟页_
           |  |
           |  |---[dll]------   释放虚拟页_
           |  |
           |  |---[dll]------   取字节集变量地址_
           |  |
           |  |---[dll]------   取文本量地址_

调用的DLL命令:

.DLL命令 RtlAnsiStringToUnicodeString, 整数型, "ntdll.dll", "RtlAnsiStringToUnicodeString", , Ansi转Unicode,机器翻译.
    .参数 DestinationString, PUNICODE_STRING, , PUNICODE_STRING 指向一个UNICODE_STRING结构以容纳转换的Unicode字符串。如果AllocateDestinationString为TRUE，常规分配一个新的缓冲区来保存字符串数据，并更新DestinationString缓冲区成员以指向新的缓冲区。否则，常规使用当前指定的缓冲区来保存字符串。
    .参数 SourceString, PANSI_STRING, , PANSI_STRING 指针为ANSI字符串转换为Unicode。
    .参数 AllocateDestinationString, 逻辑型, , BOOLEAN 如果指定这个例程应分配为目标字符串的缓冲区空间。如果是这样，调用者必须通过调用RtlFreeUnicodeString释放缓冲区

.DLL命令 RtlUnicodeStringToAnsiString, 整数型, "ntdll.dll", "RtlUnicodeStringToAnsiString"
    .参数 DestinationString, PANSI_STRING
    .参数 SourceString, PUNICODE_STRING
    .参数 AllocateDestinationString, 逻辑型

.DLL命令 RtlFreeUnicodeString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 UnicodeString, PUNICODE_STRING

.DLL命令 RtlFreeAnsiString, 整数型, "ntdll.dll", "RtlFreeUnicodeString"
    .参数 AnsiString, PANSI_STRING

.DLL命令 分配虚拟页_, 整数型, "kernel32.dll", "VirtualAlloc", , , 保留虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 分配类型, 整数型, , flAllocationType
    .参数 内存保护标志, 整数型, , flProtect

.DLL命令 释放虚拟页_, 整数型, "kernel32.dll", "VirtualFree", , 释放虚拟页
    .参数 分配文本地址, 整数型, , lpAddress
    .参数 分配大小, 整数型, , dwSize
    .参数 释放类型, 整数型, , dwFreeType

.DLL命令 取字节集变量地址_, 整数型, "kernel32.dll", "lstrcpyn", , ,
    .参数 数据1, 字节集, 传址, lpString1
    .参数 数据2, 字节集, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 取文本量地址_, 整数型, "kernel32.dll", "lstrcpyn", , ,
    .参数 数据1, 文本型, 传址, lpString1
    .参数 数据2, 文本型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength