一个CreateProcess的实例:<br>var<br> StartupInfo:TStartupInfo;<br> ProcessInfo:TProcessInformation;<br> strdirectory:string;<br> porder:array [0..100] of char;<br>begin<br> FillChar(StartupInfo,Sizeof(StartupInfo),#0);<br> strdirectory:='d:/tools/acdsee32/acdsee32.exe ';<br> strpcopy(porder,strdirectory);<br> StartupInfo.cb:=sizeof(StartupInfo);<br> CreateProcess(nil,porder,<br> nil,nil,false,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,<br> nil,nil,startupInfo,PROCESSINFO);