如何在Delphi里执行批处理文件？

Question

比如在delphi里写以下语句该如何写？
@echo off
net time \\192.168.0.1 /set /yes
谢谢！！

Answer 1

var
 f:textfile
begin
 assignfile(f,'test.bat');
 rewrite(f);
 try
  writeln(f,'@echo off');
  writeln(f,'net time \\192.168.0.1 /set /yes');
 finally
  closefile(f);
 end;
end

Answer 2

to hkbarton:
  谢谢，我的意思是在Delphi里，如何执行以上语句。

Answer 3

shellexecute(Hwnd,"open",path,nil,nil,SW_HIDE);

Answer 4

在Delphi里如何执行以下语句：@echo off
net time \\192.168.0.1 /set /yes

Answer 5

先用一楼的方法生成批处理后，再用shellexecute执行就可以了

Answer 6

先把你的语句做成bat文件，然后执行你的bat文件就可以了呀。

Answer 7

做一个A.bat文件，
之后用DELPHI调用。
winexec('a.bat',sw_hide);

Answer 8

shellexec   or  winexec
shellexecute(Hwnd,"open",path,nil,nil,SW_HIDE);
winexec('a.bat',sw_hide);