delphi获取DOS命令行输出函数运行CMD命令并获取结果

相关文章推荐

乐观的机器猫 · Proxy error: Could ...· 3 年前 ·

豪情万千的围巾 · Unity Console 窗口 ...· 3 年前 ·

狂野的伏特加 · Windows上是否有/dev/null？ ...· 3 年前 ·

博学的火锅 · 语音识别asr是什么 - OSCHINA ...· 3 年前 ·

fname:=allocmem( 255 ); ph: =AllocMem( 5000 ); lsa.nLength : = sizeof(SECURITY_ATTRIBUTES); lsa.lpSecurityDescriptor : = nil ; lsa.bInheritHandle : = True; if CreatePipe(hReadPipe,hWritePipe,@lsa, 0 )=false then begin ShowMessage( ' Can not create pipe! ' ); exit; end ; fillchar(si,sizeof(STARTUPINFO), 0 ); si.cb : = sizeof(STARTUPINFO); si.dwFlags : =(STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW); si.wShowWindow : = SW_HIDE; si.hStdOutput : = hWritePipe; StrPCopy(fname, ' ping baidu.com ' ); // 执行命令 if CreateProcess( nil , fname, nil , nil , true, 0 , nil , nil , si, pi) = False then begin ShowMessage( ' can not create process ' ); FreeMem(ph); FreeMem(fname); Exit; end ; while (true) do begin if not PeekNamedPipe(hReadPipe,ph, 1 ,@cchReadBuffer, nil , nil ) then break ; if cchReadBuffer<> 0 then begin if ReadFile(hReadPipe,ph^, 4096 ,cchReadBuffer, nil )=false then break ; ph[cchReadbuffer]: =chr( 0 ); if ph<> '' then Memo1.Lines.Add(ph); else if (WaitForSingleObject(pi.hProcess , 0 )=WAIT_OBJECT_ 0 ) then break ; Application.ProcessMessages; Sleep( 100 ); end ; ph[cchReadBuffer]: =chr( 0 ); if ph<> '' then Memo1.Lines.Add(StringReplace(ph,# 13 # 10 , '' ,[rfReplaceAll])); CloseHandle(hReadPipe); CloseHandle(pi.hThread); CloseHandle(pi.hProcess); CloseHandle(hWritePipe); FreeMem(ph); FreeMem(fname); except end ; finally end ; end ;

推荐文章

乐观的机器猫 · Proxy error: Could not proxy request - OSCHINA - 中文开源技术交流社区

3 年前

豪情万千的围巾 · Unity Console 窗口 Debug出现乱码解决方案_unity的console中文_懵懵爸爸的博客-CSDN博客

3 年前

狂野的伏特加 · Windows上是否有/dev/null？ - 问答 - 腾讯云开发者社区-腾讯云

3 年前

博学的火锅 · 语音识别asr是什么 - OSCHINA - 中文开源技术交流社区

3 年前