有谁用过CreatePipe函数?我要把执行的DOS命令的结果返回到文本框中要怎么做? 是否是用管道?CreatePipe如何实现这个功能? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 参考 CSDN 以前的帖子,或者在 MSDN 里查找这个标题:"Creating a Child Process with Redirected Input and Output" 一个DELPHI的例子例子:运行 'chkdsk.exe c:\' 并且 显示其输出结果到 Memo 中! procedure RunDosInMemo(DosApp:String;AMemo:TMemo);const ReadBuffer = 2400; varSecurity : TSecurityAttributes;ReadPipe,WritePipe : THandle;start : TStartUpInfo;ProcessInfo : TProcessInformation;Buffer : Pchar;BytesRead : DWord;Apprunning : DWord;beginWith Security dobeginnlength := SizeOf(TSecurityAttributes);binherithandle := true;lpsecuritydescriptor := nil;end;if Createpipe (ReadPipe, WritePipe, @Security, 0) thenbeginBuffer := AllocMem(ReadBuffer + 1);FillChar(Start,Sizeof(Start),#0);start.cb := SizeOf(start);start.hStdOutput := WritePipe;start.hStdInput := ReadPipe;start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;start.wShowWindow := SW_HIDE;if CreateProcess(nil,PChar(DosApp),@Security,@Security,true,NORMAL_PRIORITY_CLASS,nil,nil,start,ProcessInfo) thenbeginrepeatApprunning := WaitForSingleObject(ProcessInfo.hProcess,100);Application.ProcessMessages;until (Apprunning <> WAIT_TIMEOUT);RepeatBytesRead := 0;ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil);Buffer[BytesRead]:= #0;OemToAnsi(Buffer,Buffer);AMemo.Text := AMemo.text + String(Buffer);until (BytesRead < ReadBuffer);end;FreeMem(Buffer);CloseHandle(ProcessInfo.hProcess);CloseHandle(ProcessInfo.hThread);CloseHandle(ReadPipe);CloseHandle(WritePipe);end;end;调用实例:RunDosInMemo('chkdsk.exe c:\',Memo1); ChtmlView如何判断网页加载完成 界面刷新问题,高手指点一下 怎样判断视图或窗口是否存在 如何在richedit中显示进度条和按钮之类的东西,类似于msn,给点思路,有源码最好 使用tftp协议的客户端程序能够访问到FTP协议的server吗? 一个超难的问题??答对了100分!!! 为什么,创建新的进程总是失败??? 数据包重发? 有关切分窗口的问题,请大虾帮帮忙 绝对够菜 新手急救!非常感谢! 关心汉字算法德请进
"Creating a Child Process with Redirected Input and Output"
例子:运行 'chkdsk.exe c:\' 并且 显示其输出结果到 Memo 中!
procedure RunDosInMemo(DosApp:String;AMemo:TMemo);
const ReadBuffer = 2400;
var
Security : TSecurityAttributes;
ReadPipe,WritePipe : THandle;
start : TStartUpInfo;
ProcessInfo : TProcessInformation;
Buffer : Pchar;
BytesRead : DWord;
Apprunning : DWord;
begin
With Security do
begin
nlength := SizeOf(TSecurityAttributes);
binherithandle := true;
lpsecuritydescriptor := nil;
end;
if Createpipe (ReadPipe, WritePipe, @Security, 0) then
begin
Buffer := AllocMem(ReadBuffer + 1);
FillChar(Start,Sizeof(Start),#0);
start.cb := SizeOf(start);
start.hStdOutput := WritePipe;
start.hStdInput := ReadPipe;
start.dwFlags := STARTF_USESTDHANDLES + STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;
if CreateProcess(nil,PChar(DosApp),@Security,@Security,true,NORMAL_PRIORITY_CLASS,
nil,nil,start,ProcessInfo) then
begin
repeat
Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100);
Application.ProcessMessages;
until (Apprunning <> WAIT_TIMEOUT);
Repeat
BytesRead := 0;
ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil);
Buffer[BytesRead]:= #0;
OemToAnsi(Buffer,Buffer);
AMemo.Text := AMemo.text + String(Buffer);
until (BytesRead < ReadBuffer);
end;
FreeMem(Buffer);
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
CloseHandle(ReadPipe);
CloseHandle(WritePipe);
end;
end;调用实例:RunDosInMemo('chkdsk.exe c:\',Memo1);