小弟在线快一天了！现在这么多高手在线，帮忙了！（命令参数传递，结果送往一个文件）分不够可以再加！ (100分)

执行结果应该是这样：
E:/>ping www.delphibbs.com >>b.txt

E:/>type b.txt

Pinging www.delphibbs.com [211.101.4.25] with 32 bytes of data:

Reply from 211.101.4.25: bytes=32 time=40ms TTL=116
Reply from 211.101.4.25: bytes=32 time=30ms TTL=116
Reply from 211.101.4.25: bytes=32 time=31ms TTL=116
Reply from 211.101.4.25: bytes=32 time=30ms TTL=116

Ping statistics for 211.101.4.25:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 30ms, Maximum = 40ms, Average = 32ms

E:/>del b.txt

还有一个办法就是你用自己写的Ping函数，这样就什么都可以自己控制了。
用Delphi写Ping在论坛能找到的。

xianjun,老大
我是要学习一下，能否帮忙解决一下这个问题呢（不是shellexecute那中).
YB_unique,大侠说我上面的代码中没有读和写的过程，能否帮一下忙，改改上面我的那段程序呢？
我改了很久都好像不行（改那个TStartupInfo的参数，是不是指定它的
hStdInput := hinput;
hStdOutput:= hOutput;
就完事了呢？）
对你这个高手来说，不能太难吧，谢谢了。
另：
procedure TForm1.Button4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'ping', 'www.delphibbs.com >> e:/b.txt', nil, 0);
end;
好像也没有结果输出到b.txt中。为什么？
在线一上午了，高手们帮忙帮到底吗！谢谢了！

下面的代码通过！可我要的还不行，redirect的功能，谁能帮我！
procedure TForm1.Button4Click(Sender: TObject);
begin
if Win32Platform <> VER_PLATFORM_WIN32_NT then
begin
winexec('command /c "d:/delphi/practice/ping jbas > d:/delphi/practice/b.txt"', SW_HIDE);
showmessage('hi');
end
else
winexec('cmd /c "d:/delphi/practice/ping jbas > d:/delphi/practice/b.txt"', SW_HIDE);

end;

DOS重定向还有必要研究吗？
自己写一个Ping如何？

barton高手,我是要实现这样的功能！
我想要的是这种形式，redirect('ping.exe','a.txt','b.txt')
a.txt里有要读取的数据，如www.delphibbs.com
b.txt输出ping后的结果.
不想生成中间文件，高手们帮帮忙了！
ping.exe只是一个例子，主要实现例如
type aa.txt>b.txt
dir c:>b.txt
等功能，是参数要从一个文件提取，结果存到另一个文件中！
帮帮忙了！谢谢了！

你还是研究一下YB_unique的代码吧
照那样做就可以实现你的功能了
都说得这么清楚了还要别人给你写出来就是叫人帮你做苦力了
要知道苦力的价格可是很高的哦。[]

就这样吧，一天了（还没有吃饭），到头来还是代点遗憾！
另：YB_unique大侠的代码执行总有问题！我再试试吧！
希望下次大侠们给我一个能让我觉得爽的答案！

有一个建议：
提问的时候最好让人帮你解决问题而不是叫人帮你写什么什么功能的函数
比如说“YB_unique大侠的代码执行总有问题”，那你就把问题说出来，相信你不用花一天时间早就解决了。
个人看法[]

to xianjun大侠！
我是想找人帮我该错，不是给我现成的东西。我不是把自己的代码给出来了吗？
我可没要别人给我个现成的函数，那一是太浪费别人的时间，我只要知道答案的人给我
改一下或提示一下，毕竟问题是我的，解决了我的受益最大。二是直接看别人全部的东西太累！我的水平
也不够。
我前面的提问：
1：各位大侠看看下面的代码，怎么总有问题呢？不能把结果输出到b.txt中，我从a.txt中取数据
2：我这里没有用管道，是否要用到呢？
我可没提到要完整的源代码，错怪我了！5555555