Question

delphi执行DOS命令

我想让delphi执行DOS命令netsh -c interface127.0.0.1dump
‘netsh -c interface’+127.0.0.1是form1.edit1.text+‘dump’
127.0.0.1是form1.edit1.text
让它与edit.text连接起来

Answer 1

1.winexec('clear.bat',sw_show); 将你的DOS命令全部放在.bat文件里就可以了。
2.winexec('format d: /y',SW_Hide); 很危险呀!请不要实验!
3.WinExec('Command.com /C main.exe > tmp.txt',SW_Hide);
WinExec -- windows api function
Command.com /C string -- Carries out the command specified by string, and then stops.
main.exe > tmp.txt -- dos 命令行 你可以改称你想要的
如 copy c:\a d:\
只要是命令行能行， 放到这也行
SW_Hide -- WinExec参数， 表示 运行时隐藏dos的那个黑框

Answer 2

delphi 有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。
就拿WinExec来做例子，该命令调用格式如下:
WinExec('Notepad.exe Readme.txt', SW_SHOW)

那就是
WinExec('netsh -c interface'+form1.edit1.text,SW_SHOW);