高难问题，在线等待高手： Delphi处理进程相关问题！！ ( 积分: 100 )

我有一个 AAA.cmd, 这个批处理程序是一个循环处理，不退出，除非强制Close。
现在我想做的是：
1. Delphi 程序 打开 AAA.cmd
2. Delphi 得到进程，随时Close 运行的AAA.cmd

我有一个 AAA.cmd, 这个批处理程序是一个循环处理，不退出，除非强制Close。
现在我想做的是：
1. Delphi 程序 打开 AAA.cmd
2. Delphi 得到进程，随时Close 运行的AAA.cmd

自己 顶 一下！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1421799

xlzps 大虾的代码


function CreateProcessAndWait(const AppParams: String; Visibility: word;
var d: DWord): Boolean;
var
SI: TStartupInfo;
PI: TProcessInformation;
Proc: THandle;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
SI.wShowWindow := Visibility;
result := true;
if not CreateProcess(nil, PChar(AppParams), Nil, Nil, False,
Normal_Priority_Class, Nil, Nil, SI, PI) then
begin
result := false;
raise Exception.CreateFmt('Failed to execute program. Error Code %d',
[GetLastError]);
end;
Proc := PI.hProcess;
CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, Infinite) <> Wait_Failed then
GetExitCodeProcess(Proc, d);
CloseHandle(Proc);
end;

感谢！！！！