易语言重定向输入输出源码

系统结构:创建子进程,API打开文件对话框,API保存文件对话框,API浏览文件夹,API信息框,DLL信息框,DLL打开文件对话框,DLL保存文件对话框,DLL命令浏览文件夹,DLL命令取文件夹路径,DLL命令关闭内核对象,DLL命令创建匿名管道,DLL命令创建进程,DLL命令结束进程,DLL命令取进程退出代码,DLL命令读对象数据,DLL命令预览管道数据,DLL命令写对象数据,

======窗口程序集1
           |  |
           |  |------ _打开按钮_被单击
           |  |
           |  |------ 创建子进程
           |  |
           |  |------ _输入按钮_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======API对话框程序集
           |  |
           |  |------ API打开文件对话框
           |  |
           |  |------ API保存文件对话框
           |  |
           |  |------ API浏览文件夹
           |  |
           |  |------ API信息框
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DLL信息框
           |  |
           |  |---[dll]------   DLL打开文件对话框
           |  |
           |  |---[dll]------   DLL保存文件对话框
           |  |
           |  |---[dll]------   DLL命令浏览文件夹
           |  |
           |  |---[dll]------   DLL命令取文件夹路径
           |  |
           |  |---[dll]------   DLL命令关闭内核对象
           |  |
           |  |---[dll]------   DLL命令创建匿名管道
           |  |
           |  |---[dll]------   DLL命令创建进程
           |  |
           |  |---[dll]------   DLL命令结束进程
           |  |
           |  |---[dll]------   DLL命令取进程退出代码
           |  |
           |  |---[dll]------   DLL命令读对象数据
           |  |
           |  |---[dll]------   DLL命令预览管道数据
           |  |
           |  |---[dll]------   DLL命令写对象数据

调用的DLL命令:

.DLL命令 DLL信息框, 整数型, "user32.dll", "MessageBoxA", , 建立消息框窗体　
    .参数 父窗口句柄, 整数型
    .参数 消息内容, 文本型
    .参数 窗口标题, 文本型
    .参数 按钮图标, 整数型

.DLL命令 DLL打开文件对话框, 逻辑型, "comdlg32.dll", "GetOpenFileNameA"
    .参数 对话框, 文件对话框结构, 传址

.DLL命令 DLL保存文件对话框, 逻辑型, "comdlg32.dll", "GetSaveFileNameA"
    .参数 对话框, 文件对话框结构, 传址

.DLL命令 DLL命令浏览文件夹, 整数型, "shell32.dll", "SHBrowseForFolderA"
    .参数 信息, 浏览文件夹结构

.DLL命令 DLL命令取文件夹路径, 整数型, "shell32.dll", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 缓冲文本, 文本型, 传址

.DLL命令 DLL命令关闭内核对象, 整数型, "kernel32.dll", "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 DLL命令创建匿名管道, 整数型, "kernel32.dll", "CreatePipe"
    .参数 读句柄, 整数型, 传址
    .参数 写句柄, 整数型, 传址
    .参数 管道属性, SECURITY_ATTRIBUTES, 传址
    .参数 缓冲区大小, 整数型

.DLL命令 DLL命令创建进程, 整数型, "kernel32.dll", "CreateProcessA"
    .参数 a, 整数型, , 0 暂时不用此参数
    .参数 文件名, 文本型, 传址
    .参数 pa, 整数型, , 0 暂时不用
    .参数 ta, 整数型, , 0 暂时不用
    .参数 允许继承, 整数型, , 1
    .参数 标志, 整数型
    .参数 环境, 整数型, , 0 暂时不用
    .参数 目录, 整数型, , 0 暂时不用
    .参数 si, STARTUPINFO, 传址
    .参数 pi, PROCESS_INFORMATION, 传址

.DLL命令 DLL命令结束进程, 整数型, "kernel32.dll", "TerminateProcess"
    .参数 进程句柄, 整数型
    .参数 退出代码, 整数型

.DLL命令 DLL命令取进程退出代码, 整数型, "kernel32.dll", "GetExitCodeProcess"
    .参数 进程句柄, 整数型
    .参数 退出代码, 整数型, 传址

.DLL命令 DLL命令读对象数据, 整数型, "kernel32.dll", "ReadFile"
    .参数 句柄, 整数型
    .参数 缓冲区, 文本型, 传址
    .参数 读取长度, 整数型
    .参数 实际长度, 整数型, 传址
    .参数 o, 整数型, , 0 暂时不用

.DLL命令 DLL命令预览管道数据, 整数型, "kernel32.dll", "PeekNamedPipe"
    .参数 对象句柄, 整数型
    .参数 缓冲区, 整数型, , 0 暂时不用
    .参数 缓冲区大小, 整数型, , 0 暂时不用
    .参数 br, 整数型, , 0 暂时不用
    .参数 实际长度, 整数型, 传址
    .参数 btm, 整数型, , 0 暂时不用

.DLL命令 DLL命令写对象数据, 整数型, "kernel32.dll", "WriteFile"
    .参数 对象句柄, 整数型
    .参数 缓冲区, 文本型, 传址
    .参数 写入长度, 整数型
    .参数 实际长度, 整数型, 传址
    .参数 o, 整数型, , 0 暂时不用