易语言DOS取系统信息源码

系统结构:子_回显,取DOS返回,CreatePipe,PeekNamedPipe,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 子_回显
           |  |
           |  |------ 取DOS返回
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   _创建新进程
           |  |
           |  |---[dll]------   _关闭对象
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   _读出文件中数据
           |  |
           |  |---[dll]------   _取指针_文本型
           |  |
           |  |---[dll]------   _动态调用子程序1
           |  |
           |  |---[dll]------   _取中断进程退出代码

调用的DLL命令:

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, vhrb6eh45v, 传址
    .参数 nSize, 整数型

.DLL命令 _创建新进程, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型, , 要执行的应用程序的名字
    .参数 lpCommandLine, 文本型, , 要执行的命令行
    .参数 lpProcessAttributes, 整数型, , SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值表示采用不允许继承的默认描述符
    .参数 lpThreadAttributes, 整数型, , SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值表示采用不允许继承的默认描述符。
    .参数 bInheritHandles, 逻辑型, , TRUE表示允许当前进程中的所有句柄都由新建的子进程继承
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型, , 任何类型，指向一个环境块的指针
    .参数 lpCurrentDriectory, 整数型, , 新进程的当前目录路径
    .参数 lpStartupInfo, sbyhrtv, 传址, STARTUPINFO，指定一个STARTUPINFO结构，其中包含了创建进程时使用的附加信息
    .参数 lpProcessInformation, 进程结构, 传址, PROCESS_INFORMATION，该结构用于容纳新进程的进程和线程标识。

.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
    .参数 对象句柄, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 _读出文件中数据, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 _取指针_文本型, 整数型, , "lstrcpyn", 公开
    .参数 目的指针, 文本型, 传址
    .参数 源指针, 文本型, 传址
    .参数 复制长度, 整数型, , 0

.DLL命令 _动态调用子程序1, 逻辑型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集
    .参数 子程序, 子程序指针
    .参数 参数, 整数型, 数组
    .参数 参数数目, 整数型
    .参数 是否C调用, 逻辑型

.DLL命令 _取中断进程退出代码, 整数型, , "GetExitCodeProcess", , 非零表示成功，零表示失败。
    .参数 hProcess, 整数型, , 用于装载进程退出代码的一个长整数变量。
    .参数 lpExitCode, 整数型, 传址, 想获取退出代码的一个进程的句柄