怎样在程序中使用dos命令？

Question

怎样在程序中使用dos命令？
我要在程序中加ping命令怎么办

Answer 1

text:='Ping '+Trim(Edit1.Text );   //Edit1.Text是HostName或者IP
WinExec(pchar(text),SW_show);   //第2个参数设置窗口的显示方式可以是SW_HIDE

Answer 2

edit1.text:='ping 192.168.0.1';
  winexec(pchar('command.com /c '+edit1.text+
             '> c:\text1.txt'),sw_hide);

Answer 3

执行的结果放在c:\text1.txt中，然后可以取出来显示在你要显示的地方