Delphi调用CreateProcess创建进程

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,nil,si,pi);
  except
    Result:=False;
  end;
end;