【结贴】调用CMD命令问题[请求]！

swei0319

WinExec(PChar('ipconfig/all > d:\MAC.TXT'),SW_SHOW);
调用CMD命令并且在本地创建一个TXT文档，我昨天晚上测试的时候没问题，
今天上午测试的时候发现这句代码没效果。
请问是否是我使用的不正确？该如何条用CMD命令？

jiahaiming

楼主，您具体是怎么做的？
昨晚测试没有问题：是什么现象？
今天上午没有效果：是什么现象？

swei0319

我的目的是获取MAC地址，不会用导入第三方控件的方法。
自己用的一个笨方法：先在本地创建一个MAC命令的TXT文档
然后读取文档中的MAC地址。之前测试的时候能够在D盘创建TXT文档；
昨天上午测试的时候发现创建不了。具体代码如下：
          WinExec(PChar('ipconfig/all > d:\MAC.TXT'),SW_SHOW);
          txtlist:=TStringList.create;
          txtlist.LoadFromFile('d:\MAC.TXT');
          for i :=0 to txtlist.count-1 do
          begin
              temp := temp + txtlist.strings;
          end;
          temp := SYSutils.StringReplace(temp,'Physical Address. . . . . . . . . : ','@',[TReplaceFlagsEnum.rfReplaceAll]);
          k:=StringUtils.Pos('@',temp);
          temp := temp.Substring(k,18);

执行到          txtlist.LoadFromFile('d:\MAC.TXT'); 这句的时候报错，找不到MAC.TXT文档。

我想问下是否我的写法有问题，或者给我提供解决的方法。添加了单元（Borland.Delphi.Windows）

swei0319

我新建表单，用WinExec(PChar('ipconfig/all > d:\MAC.TXT'),SW_SHOW); 调用CMD命令还是没有执行？
请问该如何解决！

shangxy

可以考虑把'ipconfig/all > d:\MAC.TXT'做成一个批处理，放到客户端去执行

swei0319

我现在的问题是想知道：1，我这样调用CMD命令是否正确；
                                             2，如果不正确，我该如何调用；
能帮我实质性的分析下问题么？

shangxy

WinExec(PChar('cmd /c ipconfig /all > d:\MAC.TXT'),SW_SHOW);

swei0319

奇怪！用你上面的代码刚编译，第一次运行的时候能够创建MAC.TXT ；但我关闭功能，然后删掉对应目录的MAC.TXT后重新运行功能，就不能创建了。重新初始化还是不行。

swei0319

另外将WinExec(PChar('ipconfig/all > d:\MAC.TXT'),SW_SHOW);  
换成     WinExec(PChar('cmd /d ipconfig /all > d:\MAC.TXT'),SW_SHOW);后
CMD窗口一直显示着，需要自己手动去关闭。

shangxy

看7楼的代码，是c不是d
如果不想显示窗口，设置最后一个参数为：SW_HIDE