易语言苹果Siri问答源码

系统结构:发送数据,初始化语音,初始化,子程序1,双字节到宽字符1_,GetWindowThreadProcessId,EnumWindows,取父级,SetParent,SetWindowPos,FindWindow,

======窗口程序集1
           |  |
           |  |------ 发送数据
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 初始化语音
           |  |
           |  |------ 初始化
           |  |
           |  |------ 子程序1
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _编辑框1_内容被改变
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_被激活
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   双字节到宽字符1_
           |  |
           |  |---[dll]------   _Utf8转Unicode
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   EnumWindows
           |  |
           |  |---[dll]------   取父级
           |  |
           |  |---[dll]------   SetParent
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   FindWindow

调用的DLL命令:

.DLL命令 双字节到宽字符1_, 整数型, "SHLWAPI", "#217", , SHUnicodeToAnsi
    .参数 双字节文本, 字节集, , lpMultiBVytestyr
    .参数 宽字符文本, 文本型, 传址, lpWideCharStr
    .参数 宽字符文本长度, 整数型, , cchWideChar

.DLL命令 _Utf8转Unicode, 整数型, "kernel32.dll", "MultiByteToWideChar", , _Utf8转Unicode
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 字节集
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 GetWindowThreadProcessId, 整数型, "user32", "GetWindowThreadProcessId"
    .参数 hwnd, 整数型
    .参数 lpdwProcessId, 整数型, 传址

.DLL命令 EnumWindows, 整数型, "user32.dll", "EnumWindows"
    .参数 lpEnumFunc, 子程序指针
    .参数 lParam, 整数型, 传址

.DLL命令 取父级, 整数型, "user32.dll", "GetAncestor"
    .参数 hwnd, 整数型
    .参数 gaFlags, 整数型

.DLL命令 SetParent, 整数型, "user32", "SetParent"
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos"
    .参数 hwnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
    .参数 lpClassName, 文本型, 传址
    .参数 lpWindowName, 文本型, 传址