W
waterflow
Unregistered / Unconfirmed
GUEST, unregistred user!
我想在编写一个服务程序,执行一些DOS命令。但是试验多次没有成功。<br>下面是相应的代码<br>procedure TThreadSystemHandle.Execute;<br>//var vRun:Boolean;<br>begin<br> { Place thread code here }<br> //vRun:=True;<br> While True do<br> begin<br> Beep(2000,500); //这条语句会被执行<br> SynChronize(MyShell);//没有得到相应的结果<br> Sleep(1000);<br> end;<br>end;<br><br>procedure TThreadSystemHandle.MyShell;<br>begin<br> WinExec('Start.exe /m del D:/123.txt',SW_HIDE);//没有删除文件,改为WinExec(del D:/123.txt',SW_HIDE)也没有用处<br>end;<br><br>谁有这方面的经验