怎么在Console里直接运行命令提示符下的程序

[cnotes]

比如在命令提示符里可以直接这样ping 127.1 -n 3 ，并且可以返回信息

那在Console里应该怎么操作呢？

[Mit1208]

加上:edit,button,listbox,idicmpclient四个控件


双击button
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
idicmpclient.Host:=edit1.Text;
for i:=0 to 3 do
begin
idicmpclient.Ping;
application.ProcessMessages;
 sleep(1000);
end;
end;

在idicmpclient事件的onreply中加代码
procedure TForm1.idicmpclientReply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
stime:string;
begin
stime:='=';
listbox1.Items.Add(format('Reply from   %s:  time=%dms   TTL=%d ms',
[aReplyStatus.fromipaddress,\\ping的IP地址
 aReplyStatus.sequenceid div 100,\\整除100是为了显示MS(毫秒)
 aReplyStatus.timetolive,\\生命周期
 stime,
 aReplyStatus.msroundtriptime]));\\不知道是什么
end;

摘自
http://www.cnitblog.com/shuyezi122/archive/2008/12/31/53311.html