RSS订阅 | 匿名投稿
您的位置:网站首页 > 系统 > 正文

delphi 执行cmd命令窗口不关闭

作者:admin 来源: 日期:2019/3/13 19:55:39 人气: 标签:

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同样支持该方法。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: