再次请教：在连续使用多个shellexecute()时，他们是同步执行，能否让一个执行完了，再执行后一个

Question

用这个函数好了,,
Function WinExecExW(cmd,workdir:pchar;visiable:integer):DWORD;
var
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
FillChar(StartupInfo,SizeOf(StartupInfo),#0);
StartupInfo.cb:=SizeOf(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=visiable;
if not CreateProcess(nil,cmd,nil,nil,false,Create_new_console or Normal_priority_class,nil,nil,StartupInfo,ProcessInfo) then
result:=0
else
begin
waitforsingleobject(processinfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);
end;
end;这个函数不行吗？？？

Answer 1

同意njbudong(午夜游民) .
其实主要在于这句
waitforsingleobject(processinfo.hProcess,INFINITE);它等待你调用的子进程的结束.