本文整理自网络，侵删。
procedure CmdExecAndView(FileName: string; memo: TMemo);
procedure _AddInfo(mmInfo:TMemo; S: string; var line: string);
var
i, p: Integer;
begin
if mmInfo.Lines.Count > 800 then
mmInfo.Lines.Clear;
for i := 0 to Length(S) - 1 do
if S[i] = #13 then S[i] := ' ';
line := line + S;
p := Pos(#10, line);
if p > 0 then
begin
mmInfo.Lines.Add(Copy(line, 1, p - 1));
line := Copy(line, p + 1, Length(line) - p);
end;
end;
var
hReadPipe, hWritePipe: THandle;
si: STARTUPINFO;
lsa: SECURITY_ATTRIBUTES;
pi: PROCESS_INFORMATION;
cchReadBuffer: DWORD;
ph: PChar;
fname: PChar;
line: string;
begin
fname := allocmem(1024);
ph := AllocMem(1024);
lsa.nLength := sizeof(SECURITY_ATTRIBUTES);
lsa.lpSecurityDescriptor := nil;
lsa.bInheritHandle := True;
if CreatePipe(hReadPipe, hWritePipe, @lsa, 0) = false then
Exit;
fillchar(si, sizeof(STARTUPINFO), 0);
si.cb := sizeof(STARTUPINFO);
si.dwFlags := (STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
si.wShowWindow := SW_HIDE;
si.hStdOutput := hWritePipe;
si.hStdError := hWritePipe;
StrPCopy(fname, FileName);
if CreateProcess(nil, fname, nil, nil, true, 0, nil, nil, si, pi) = False then
begin
FreeMem(ph);
FreeMem(fname);
Exit;
end;
CloseHandle(hWritePipe);
while (true) do
begin
if not PeekNamedPipe(hReadPipe, ph, 1, @cchReadBuffer, nil, nil) then break;
if cchReadBuffer <> 0 then
begin
if ReadFile(hReadPipe, ph^, 512, cchReadBuffer, nil) = false then break;
ph[cchReadbuffer] := chr(0);
_AddInfo(memo, ph, line);
end
else if (WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0) then break;
Application.ProcessMessages;
Sleep(200);
end;
ph[cchReadBuffer] := chr(0);
_AddInfo(memo, ph, line);
CloseHandle(hReadPipe);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
FreeMem(ph);
FreeMem(fname);
end;
用的时候就 CmdExecAndView('ping 202.100.197.50 -t',Memo1);
相关阅读 >>
Delphi 使用webbrowser控件获取含框架的网页的完整html代码
Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？
Delphi api 函数: getcursorpos 与转换
更多相关阅读请进入《Delphi》频道 >>
