function waitrun(app:pansichar):cardinal;
var
si:startupinfo;
pi:process_information;
begin
fillchar(si,sizeof(si),0);
fillchar(pi,sizeof(pi),0);
si.cb:=sizeof(si);
si.dwFlags:=startf_useshowwindow;
si.wShowWindow:=sw_hide;
createprocess(nil,app,nil,nil,false,normal_priority_class,nil,nil,si,pi);
waitforinputidle(pi.hprocess,infinite);
result:=pi.dwProcessId;
end;

大部分情况下还是可以的，只是有时候会出现被运行程序提示'can not opened'的提示，是不是哪个参数设置的有些不当？