易语言取拼音音调源码

系统结构:A2W,取字节集指针,取整数指针,调用方法,取指针指向整数,取对象指针,w2a,取指针指向短整数,open,close,GetJMorphResult,GetConversionModeCaps,动态调用子程序_API,CoCreateInstance,取对象指针_API,复制整数_API,CoTaskMemFree,API_WideCharToMultiByte,取字节集指针_API,UnicodeToMultiByte,lstrlenW,取整数指针_API,CLSIDFromString,CoInitialize,MultiByteToWideChar,复制短整数_API,CoUninitialize,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======公用程序集
           |  |
           |  |------ A2W
           |  |
           |  |------ 取字节集指针
           |  |
           |  |------ 取整数指针
           |  |
           |  |------ 调用方法
           |  |
           |  |------ 取指针指向整数
           |  |
           |  |------ 取对象指针
           |  |
           |  |------ w2a
           |  |
           |  |------ 取指针指向短整数
           |  |
           |  |
======IFELanguage类
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ open
           |  |
           |  |------ close
           |  |
           |  |------ GetJMorphResult
           |  |
           |  |------ GetConversionModeCaps
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   动态调用子程序_API
           |  |
           |  |---[dll]------   CoCreateInstance
           |  |
           |  |---[dll]------   取对象指针_API
           |  |
           |  |---[dll]------   复制整数_API
           |  |
           |  |---[dll]------   CoTaskMemFree
           |  |
           |  |---[dll]------   API_WideCharToMultiByte
           |  |
           |  |---[dll]------   取字节集指针_API
           |  |
           |  |---[dll]------   UnicodeToMultiByte
           |  |
           |  |---[dll]------   lstrlenW
           |  |
           |  |---[dll]------   取整数指针_API
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   复制短整数_API
           |  |
           |  |---[dll]------   CoUninitialize

调用的DLL命令:

.DLL命令 动态调用子程序_API, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集, , 一定要用本人编写的
    .参数 子程序, 整数型, , 子程序指针
    .参数 参数, 整数型, 数组, 为整数数组，参数1为成员1…类推；文本型和字节集型（自定义结构）为指针
    .参数 参数数目, 整数型, , 一定要和参数数组相符，不然会出错
    .参数 是否C调用, 逻辑型, , 真为cdecl调用方式，假为stdcall调用方式（即标准WINAPI方式）

.DLL命令 CoCreateInstance, 整数型, "ole32.dll"
    .参数 CLSID, 字节集
    .参数 pUnkOuter
    .参数 服务器类型
    .参数 接口的IID, 字节集
    .参数 接口对象, 对象

.DLL命令 取对象指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的整数, 对象, 传址, 一定要传址
    .参数 欲取其指针的整数, 对象, 传址, 一定要传址.重复一次,骗骗Windows:)
    .参数 保留, 整数型, , 0

.DLL命令 复制整数_API, , , "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CoTaskMemFree, 整数型, "ole32.dll"
    .参数 pp, 整数型

.DLL命令 API_WideCharToMultiByte, 整数型, "kernel32.dll", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型, , 0
    .参数 lpWideCharStr, 字节集
    .参数 cchMultiByte, 整数型, , -1
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cchMultiByte, 整数型
    .参数 默认文本, 整数型, , 0
    .参数 使用默认文本, 整数型, , 0

.DLL命令 取字节集指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 字节集
    .参数 欲取其指针的变量, 字节集
    .参数 保留, 整数型, , 0

.DLL命令 UnicodeToMultiByte, 文本型, "setupapi.dll"
    .参数 Unicode, 字节集
    .参数 CodePage, 整数型

.DLL命令 lstrlenW, 整数型, "kernel32.dll"
    .参数 lpString, 字节集

.DLL命令 取整数指针_API, 整数型, , "lstrcpyn"
    .参数 欲取其指针的变量, 整数型, 传址
    .参数 欲取其指针的变量, 整数型, 传址
    .参数 保留, 整数型, , 0

.DLL命令 CLSIDFromString, 整数型, "ole32"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 CoInitialize, 整数型, "ole32.dll"
    .参数 aa, 整数型

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 复制短整数_API, , , "RtlMoveMemory"
    .参数 Destination, 短整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CoUninitialize, 整数型, "ole32.dll"