请问怎样在程序中执行Dos命令

Question

WinExec(pchar('command /c ping 172.16.0.216'),SW_SHOW); 绝对搞定，我才用过。

Answer 1

winexec('c:/command.com /c ping 172.16.0.216> c:\tmp.txt', SW_SHOWNORMAL);把你的PING后的结果保存到C:\TMP.TXT文件中

Answer 2

ShellExecut(Handle,'open',pchar('ping 172.16.0.216'),nil,nil,SW_SHOWNORMAL )

Answer 3

ping不是dos命令，而是单独的一个程序

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringList.Create do try
    Text := 'C:\WINNT\system32\ping.exe 172.16.0.216> c:\tmp.txt';
    SaveToFile('C:\tmp.bat');
  finally
    Free;
  end;
  WinExec('C:\tmp.bat', SW_SHOWNORMAL)
end;