一个简单的进程问题

Question

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

Answer 1

不好控制EXE是否执行完你EXE能不能回传消息？

Answer 2

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

Answer 3

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

Answer 4

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;