本文整理自网络,侵删。
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 webbrowser载入自定义html内容并显示
Delphi 10.3 处理csv tstreamreader 自带split用法
Delphi中break,exit,abort跳出循环的比较
Delphi richedit的实现msn / qq 中的动画表情
更多相关阅读请进入《Delphi》频道 >>