不要用shellexecute,
用createprogress
....
if not createprogress(nil,yappname,
nil,nil,false,CREATE_NEW_CONSOLE or
NORNAL_PRIORITY_CLASS,nil,nil,
Startupinfo,ProgressInfo) then Result := -1
else
begin
waitForSingleObject(processInfo,hProcess,INFINITE);
getExitCodeProgress(ProcessInfo.hProcess,Result);
end;连续执行你自己看着办吧
用createprogress
....
if not createprogress(nil,yappname,
nil,nil,false,CREATE_NEW_CONSOLE or
NORNAL_PRIORITY_CLASS,nil,nil,
Startupinfo,ProgressInfo) then Result := -1
else
begin
waitForSingleObject(processInfo,hProcess,INFINITE);
getExitCodeProgress(ProcessInfo.hProcess,Result);
end;连续执行你自己看着办吧
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货