S
sunziqi
Unregistered / Unconfirmed
GUEST, unregistred user!
情况一：一个程序在运行中，我中断了它，然后用Winexec运行，发现报错了。情况二：程序没有运行，我用winexec运行它，然后中断他，再用winexec运行它却没有报错，不知道为什么，请大家帮忙。因为那个程序会调用一个文件,而错误说是写入文件错误.估计是资源没有释放好. (42分)<br />TProcessInfo = record<br> ExeFile: string;<br> ProcessId: DWORD;<br> end;<br><br> ProcessInfo = ^TProcessInfo;<br><br>function StopIt(Value:TFileName): Boolean;<br>var<br> h: THandle;<br> a: DWORD;<br> HotProcess: PRocessInfo;<br>begin<br> HotProcess := GetProcessInfo(Value);<br> h := openProcess(Process_All_Access, true, HotProcess.ProcessID);<br> GetExitCodeProcess(h, a);<br> TerminateProcess(h, a);<br>end;