一个简单的进程问题

[shulei521]

WinExec('cmd /C "Start ' + 'C:\DGQ\SEOC.exe' + '"', SW_SHOW);
把上面调用 exe 这段代码放到一个进程中， 确保 exe执行完后 再执行 下面的语句。
请大家给出 完整的代码
好几年不用delphi了 是在不会写了
比较完整的立马送分

[lyguo]

不好控制EXE是否执行完

你EXE能不能回传消息？

[yuqianyi1974]

楼主应该看看这个贴子
http://topic.csdn.net/u/20081012/20/1691d470-60f3-4296-945e-f43f53b46bc0.html

[yuqianyi1974]

楼主应该看看这个贴子
http://topic.csdn.net/u/20081012/20/1691d470-60f3-4296-945e-f43f53b46bc0.html

[mdejtod]

var
vProcessInfo: TProcessInformation; //进程信息句柄
vStartUpInfo: TStartupInfo;
begin
FillChar(vStartUpInfo, SizeOf(vStartUpInfo), #0);
vStartUpInfo.dwFlags:=STARTF_USESHOWWINDOW;
vStartUpInfo.wShowWindow:=SW_HIDE; //SW_HIDE,程序执行时的显示模式
if CreateProcess(nil, PChar('C:\DGQ\SEOC.exe'), nil, nil,False,
IDLE_PRIORITY_CLASS,nil, nil, vStartUpInfo,vProcessInfo) then

begin //通过进程句柄等待该进程执行完毕 第二个参数表示等待时间
WaitForSingleObject(vProcessInfo.hProcess, INFINITE);
CloseHandle(vProcessInfo.hThread); //关闭进程的主线程句柄
CloseHandle(vProcessInfo.hProcess); //关闭进程句柄
end;
end;