本文整理自网络,侵删。
var si:STARTUPINFO; pi:PROCESS_INFORMATION;begin try FillChar(si,SizeOf(si),0); FillChar(pi,SizeOf(pi),0); si.cb:=SizeOf(si); Result:=CreateProcess(PChar(ExeFilePath),nil,nil,nil,False,0,nil,PChar(ExtractFileDir(ExeFilePath)),si,pi); except Result:=False; end;end;
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>