德尔福：我如何改变ITask的优先级？

Question

我有一些在后台工作的低优先级任务，我不关心它们的执行速度，但有时候必须尽快执行一项任务。我是怎么做到的？

for k:=1 to 100 do begin 
  Orders[k] := TTask.Create(NewOrder,NewOrder.DoTheJob);
  Orders[k].Start;
end;
......
FastOrder := TTask.Create(NewOrder,NewOrder.DoTheJob);
FastOrder.Start; // I want this task to be executed ASAP, 
    //but actually it waits unpredictable time until there is a free slot
    // in task's queue or so. 
    //It can delay up to 1 minute depending on how many reqular tasks i have

Answer 1

使用TThread.createAnonymousThread代替TTask