参考代码:
procedure TMainForm.FlowBroker1CreateFlowOutFlowTasks(Sender: TObject; Command: TFlowOutCommand);
var
I: Integer;
lDatetime: TDatetime;
begin
lDatetime := SysUtils.StrToDate('2009-04-01'); //这个可以取用户录入的限制日期
for I := 0 to Command.FlowTasks.Count - 1 do
Command.FlowTasks.Items[I].LimitTime := lDatetime;