[转]Delphi执行CMD命令

 

今天看到有人在问用代码执行CMD命令的问题，就总结一下用法，也算做个备忘。

Delphi中，执行命令或者运行一个程序有2个函数，一个是winexec，一个是shellexecute。这两个大家应该都见过，其中，winexec比较简单，可以直接运行一个外部程序，shellexecute则更高级一些，除了可以运行外部exe，还可以执行特殊命令。

下面我们就分别举例子说明：我们先来看看运行一个exe程序，以记事本为例：

 

WinExec(PChar(' notepad .exe'),SW_NORMAL);//正常模式打开

WinExec(PChar(' notepad .exe'),SW_HIDE);//隐藏方式打开

WinExec(PChar('notepad.exe'),SW_SHOWMAXIMIZED);//最大化方式打开，软件必须支持最大化运行，否则该参数无效，以NORMAL方式运行

WinExec(PChar('notepad.exe'),SW_SHOWMINIMIZED);//最小化方式打开

Shellexecute(handle,nil,'notepad.exe',nil,nil,sw_normal);//这个是用shellexecute的方式打开，注意最后一个参数，和上面一样

 

使用Shellexecute注意需要uses ShellApi，上面的记事本，因为是在系统目录下，所以可以直接写notepad.exe文件名，而不必写路径，如果是其他非环境变量中注册的exe，则需要带上绝对路径或者相对路径

好，上面是最简单的，下面我们来说说带参数的运行，大家知道，有些exe程序在运行的时候可以附加参数，这里以cmd为例说明

比如，我想运行ping命令，去执行ping 192.168.1.1

WinExec(PChar( 'cmd.exe /c  ping 192.168.1.1'),SW_SHOWNORMAL);

shellexecute(handle,nil,'cmd.exe',pchar('/c ping 192.168.1.1'),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同样支持该方法。

 

下面，我们看看shellexecute其他的一些方法：

打开网页：这个太简单了，大家应该都知道

 ShellExecute(handle, 'open', PChar('http://www.baidu.com'), nil, nil, SW_SHOWNORMAL);//使用默认浏览器打开baidu.com

 ShellExecute(handle, 'open', 'firefox.exe',PChar('http://www.baidu.com'),nil, SW_SHOWNORMAL);//使用火狐浏览器打开baidu.com

 当然，shellexecute还支持在系统中注册过的关联命令。比如发邮件

ShellExecute(handle, 'open',PChar('mailto:123@123.com'),nil,nil, SW_SHOWNORMAL);

执行这句就可以打开默认邮件客户端给123@123.com发邮件了，如果我们想带上主题和内容也很好办：

 ShellExecute(handle, 'open',PChar('mailto:123@123.com?subject=这是邮件主题&bcc=123@123.com&body=邮件正文'),nil,nil, SW_SHOWNORMAL);

上面的就可以自动填写主题，内容和抄送了，注意，中文需要编码，否则可能出现乱码。