系统_取DOS执行结果添加ExitCode返回 - 精易论坛

子程序名	返回值类型	公开	备注
系统_取DOS执行结果T	字节集		该命令会阻塞，一直到CMD中的内容执行完毕后才会返回
参数名	类型	参考	可空	数组	备注
命令行文本	字节集
即时回显	子程序指针				DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续
UNICODE	逻辑型
ExitCode	整数型

变量名	类型	静态	数组	备注
hRead	整数型
hWrite	整数型
sa	SECURITY_ATTRIBUTES
nMaxCount	整数型
szPath	字节集
szCmdLine	字节集
si	STARTUPINFO
pi	PROCESS_INFORMATION
dwBytesInStdOut	整数型
lRes	逻辑型
dwExitCode	整数型
szTemp	字节集
szBuf	字节集

sa.nLength ＝ 12 ' sizeof(SECURITY_ATTRIBUTES)
sa.lpSecurityDescriptor ＝ #NULL
sa.bInheritHandle ＝真
lRes ＝ CreatePipe (hRead, hWrite, sa, 0)

如果真 (lRes ＝假)

返回 ({  })
si.cb ＝ 68  ' sizeof(STARTUPINFO)
si.dwFlags ＝位或 ( #STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW )
si.wShowWindow ＝ #SW_HIDE
si.hStdInput ＝ hRead
si.hStdOutput ＝ hWrite
si.hStdError ＝ hWrite
szPath ＝取空白字节集 (incShl ( #MAX_PATH, 真))
SHGetSpecialFolderPathW ( #NULL, 取指针字节集_ (szPath), #CSIDL_SYSTEM, 假)
写到内存 (编码_Ansi到Unicode (选择 (_WIN32_WINNT ≥ #_WIN32_WINNT_WINXP, “\cmd.exe”, “\command.com”), ), 取指针字节集_ (szPath) ＋ incShl (文本_取长度W (szPath), 真), )
szCmdLine ＝编码_Ansi到Unicode (“ /c ”, 真) ＋命令行文本
nMaxCount ＝取字节集长度 (szCmdLine)
szCmdLine ＝ szCmdLine ＋取空白字节集 (incShl ( #MAXSHORT, 真) － nMaxCount)  ' 填充
lRes ＝ CreateProcessW (取指针字节集_ (szPath), 取指针_字节集型 (szCmdLine), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)
CloseHandle (hWrite)

如果真 (lRes ＝假)

CloseHandle (hRead)

返回 ({ })
CloseHandle (pi.hThread)
WaitForInputIdle (pi.hProcess, 1000) ' 毫秒

判断循环首 (dwBytesInStdOut ≠ -1)

PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL )

如果 (dwBytesInStdOut ＞ 0)

szTemp ＝取空白字节集 (dwBytesInStdOut)

ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL )

szBuf ＝ szBuf ＋ szTemp

如果真 (是否为空 (即时回显) ＝假)

如果 (UNICODE)

szTemp ＝ A2W_CP (szTemp, m_CodePage)

szTemp ＝ szTemp ＋ { 0 }

lRes ＝程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), , ) ≠ 0

如果真 (lRes)

跳出循环 ()

GetExitCodeProcess (pi.hProcess, dwExitCode)

如果真 (dwExitCode ≠ #STILL_ACTIVE )

跳出循环 ()

Sleep (1)

判断循环尾 ()
CloseHandle (pi.hProcess)
CloseHandle (hRead)
ExitCode ＝ dwExitCode

如果真 (szBuf ＝ { })

返回 ({ })

如果 (UNICODE)

返回 (A2W_CP (szBuf, m_CodePage))

szBuf ＝ szBuf ＋ { 0 }
返回 (szBuf)

.版本 2<br />
<br />
.子程序 系统_取DOS执行结果T, 字节集, 公开, 该命令会阻塞，一直到CMD中的内容执行完毕后才会返回<br />
.参数 命令行文本, 字节集<br />
.参数 即时回显, 子程序指针, 可空, DOS即时回显信息回调函数！回调DOS函数(回显信息) 返回逻辑值；真、停止，假、继续<br />
.参数 UNICODE, 逻辑型, 可空<br />
.参数 ExitCode, 整数型, 参考 可空<br />
.局部变量 hRead, 整数型<br />
.局部变量 hWrite, 整数型<br />
.局部变量 sa, SECURITY_ATTRIBUTES<br />
.局部变量 nMaxCount, 整数型<br />
.局部变量 szPath, 字节集<br />
.局部变量 szCmdLine, 字节集<br />
.局部变量 si, STARTUPINFO<br />
.局部变量 pi, PROCESS_INFORMATION<br />
.局部变量 dwBytesInStdOut, 整数型<br />
.局部变量 lRes, 逻辑型<br />
.局部变量 dwExitCode, 整数型<br />
.局部变量 szTemp, 字节集<br />
.局部变量 szBuf, 字节集<br />
<br />
sa.nLength ＝ 12  ' sizeof(SECURITY_ATTRIBUTES)<br />
sa.lpSecurityDescriptor ＝ #NULL<br />
sa.bInheritHandle ＝ 真<br />
lRes ＝ CreatePipe (hRead, hWrite, sa, 0)<br />
.如果真 (lRes ＝ 假)<br />
    返回 ({  })<br />
.如果真结束<br />
si.cb ＝ 68  ' sizeof(STARTUPINFO)<br />
si.dwFlags ＝ 位或 (#STARTF_USESTDHANDLES, #STARTF_USESHOWWINDOW)<br />
si.wShowWindow ＝ #SW_HIDE<br />
si.hStdInput ＝ hRead<br />
si.hStdOutput ＝ hWrite<br />
si.hStdError ＝ hWrite<br />
szPath ＝ 取空白字节集 (incShl (#MAX_PATH, 真))<br />
SHGetSpecialFolderPathW (#NULL, 取指针字节集_ (szPath), #CSIDL_SYSTEM, 假)<br />
写到内存 (编码_Ansi到Unicode (选择 (_WIN32_WINNT ≥ #_WIN32_WINNT_WINXP, “\cmd.exe”, “\command.com”), ), 取指针字节集_ (szPath) ＋ incShl (文本_取长度W (szPath), 真), )<br />
szCmdLine ＝ 编码_Ansi到Unicode (“ /c ”, 真) ＋ 命令行文本<br />
nMaxCount ＝ 取字节集长度 (szCmdLine)<br />
szCmdLine ＝ szCmdLine ＋ 取空白字节集 (incShl (#MAXSHORT, 真) － nMaxCount)  ' 填充<br />
lRes ＝ CreateProcessW (取指针字节集_ (szPath), 取指针_字节集型 (szCmdLine), 取数据_通用型 (sa), #NULL, 真, 0, #NULL, #NULL, si, pi)<br />
CloseHandle (hWrite)<br />
.如果真 (lRes ＝ 假)<br />
    CloseHandle (hRead)<br />
    返回 ({  })<br />
.如果真结束<br />
CloseHandle (pi.hThread)<br />
WaitForInputIdle (pi.hProcess, 1000)  ' 毫秒<br />
.判断循环首 (dwBytesInStdOut ≠ -1)<br />
    PeekNamedPipe (hRead, #NULL, 0, #NULL, dwBytesInStdOut, #NULL)<br />
    .如果 (dwBytesInStdOut ＞ 0)<br />
        szTemp ＝ 取空白字节集 (dwBytesInStdOut)<br />
        ReadFile (hRead, szTemp, dwBytesInStdOut, dwBytesInStdOut, #NULL)<br />
        szBuf ＝ szBuf ＋ szTemp<br />
        .如果真 (是否为空 (即时回显) ＝ 假)<br />
            .如果 (UNICODE)<br />
                szTemp ＝ A2W_CP (szTemp, m_CodePage)<br />
            .否则<br />
                szTemp ＝ szTemp ＋ { 0 }<br />
            .如果结束<br />
            lRes ＝ 程序_执行整数子程序 (即时回显, 取指针_字节集型 (szTemp), , ) ≠ 0<br />
            .如果真 (lRes)<br />
                跳出循环 ()<br />
            .如果真结束<br />
<br />
        .如果真结束<br />
<br />
    .否则<br />
        GetExitCodeProcess (pi.hProcess, dwExitCode)<br />
        .如果真 (dwExitCode ≠ #STILL_ACTIVE)<br />
            跳出循环 ()<br />
        .如果真结束<br />
<br />
    .如果结束<br />
    Sleep (1)<br />
.判断循环尾 ()<br />
CloseHandle (pi.hProcess)<br />
CloseHandle (hRead)<br />
ExitCode ＝ dwExitCode<br />
.如果真 (szBuf ＝ {  })<br />
    返回 ({  })<br />
.如果真结束<br />
.如果 (UNICODE)<br />
    返回 (A2W_CP (szBuf, m_CodePage))<br />
.否则<br />
    szBuf ＝ szBuf ＋ { 0 }<br />
.如果结束<br />
返回 (szBuf)