本文整理自网络，侵删。
shellexecute(handle,nil,'cmd.exe',pchar('/c ping 192.168.1.1 & pause'),nil,sw_normal);
注意，cmd的命令需要是用/c表示带参数运行，然后后面跟上具体命令，这样就可以执行ping命令了。
上面的命令的确可以成功运行，但是有个缺点，那就是cmd在执行完毕后就会自动关闭窗口，如果有时候命令执行的过快，我们根本看不清结果，那么，有什么办法可以让cmd在执行完毕后不关闭窗口呢？答案是肯定的，我们需要一个额外的命令pause
WinExec(PChar( 'cmd.exe /c ping 192.168.1.1 & pause'),SW_SHOWNORMAL);
我们注意红色部分，我们使用一个&符号和pause，pause是批处理中的暂停命令，&符号则表示可以执行多个命令，上面的例子就表明，在执行完ping命令后再执行pause命令，这样，窗口就不会关闭了。shellexecute同样支持该方法。
相关阅读 >>
Delphi 颜色转换函数: 从 Delphi 到 html
更多相关阅读请进入《Delphi》频道 >>
