易语言管道通道源码

系统结构:Write,Read,是否存在管道,CreateProcess,CreatePipe,WriteFile,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,TerminateProcess,

======Mian
           |  |
           |  |------ _编辑框_命令_按下某键
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======管道通信
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ Write
           |  |
           |  |------ Read
           |  |
           |  |------ 是否存在管道
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateProcess
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   WriteFile
           |  |
           |  |---[dll]------   ReadFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   GetExitCodeProcess
           |  |
           |  |---[dll]------   TerminateProcess

调用的DLL命令:

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

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

.DLL命令 WriteFile, 逻辑型, , "WriteFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
    .参数 hObject, 整数型

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

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
    .参数 hProcess, 整数型
    .参数 lpExitCode, 整数型, 传址

.DLL命令 TerminateProcess, 逻辑型, , "TerminateProcess"
    .参数 hProcess, 整数型
    .参数 lpExitCode, 整数型