打开方式任务抢占的例子

john

如果是3.0.0.1231 以前的版本（包括3.0.0.1231），需要写下面那段代码，如果是3.0.0.1437以后的版本，直接在流程的功能环节的“执行工作”的“任务协作定义”中定义就可以

procedure TMainForm.NewDoRun;
var
  lBizURL: TBizURL;
  lContextCurrent: TContextCurrent;
begin
  lContextCurrent := TContextCurrent.Create(Self.Context);
  lBizURL := TBizURL.Create;
  try
    try
      lContextCurrent.FlowControl.PreemptTaskEx([TTaskPreemptMode.omFirstOpen], nil);
    except
      lBizURL.URL := 'Biz:\TSTEST1\FUNC\YWGN71.Func';//当前功能
      lContextCurrent.GetFunc(lBizURL).Terminate;
      raise;
    end;
  finally
    lContextCurrent.Free;
    lBizURL.Free;
  end;
  inherited;
end;