Delphi多线程学习(8)：优先级

一个线程的优先级取决于创建线程的进程的优先级（priority class）和线程本身相对的优先级（relative priority）。

    1、进程优先级：

    不同操作系统 优先级数目不同。Windows2000以上的版本列表如下：

Idle：（标志：IDLE_PRIORITY_CLASS，值为$40）；
Below Normal：（标志：BELOW_NORMAL_PRIORITY_CLASS，值为$4000）；
Normal：（标志：NORMAL_PRIORITY_CLASS，值为$20）；
Above Normal：（标志：ABOVE_NORMAL_PRIORITY_CLASS，值为$8000）；
High：（标志：HIGH_PRIORITY_CLASS，值为$80）；
Realtime：（标志：REALTIME_PRIORITY_CLASS，值为$100）。
进程的缺省优先级为Normal，几乎所有场合都不应将优先级设为Realtime。

创建进程时给定优先级，只要在CreateProcess中，将优先级标志做“OR”操作，填入dwCreationFlags参数中。

取得活动进程的优先级：

   function GetPriorityClass(hProcess:THandle):DWORD;stdcall;

设置活动进程的优先级：

   function SetPriorityClass(hProcess:THandle;dwPriorityClass:DWORD);BOOL;

（上面两个函数的hProcess由GetCurrentProcess函数获得，这个句柄不用CloseHandle关闭）

    2、线程相对优先级：

    线程优先级分7类，如下：

tpIdle：（常量：THREAD_PRIORITY_IDLE，值为-15）；

tpLowest：（常量：THREAD_PRIORITY_LOWEST，值为-2）；

tpBelow Normal：（常量：THREAD_PRIORITY_BELOW_NORMAL，值为-1）；

tpNormal：（常量：THREAD_PRIORITY_NORMAL，值为0）；

tpAbove Normal：（常量：THREAD_PRIORITY_ABOVE_NORMAL，值为1）；

tpHighest：（常量：THREAD_PRIORITY_HIGEST，值为2）；

tpTimeCritical：（常量：THREAD_PRIORITY_TIME_CRITICAL，值为15）；

对于线程类TThread，改变线程优先级非常方便，只要将派生类的Priority属性相应设置就好了。如：MyThread.Priority:=tpHighest;

  3、线程优先级计算：

     如果线程优先级为tpIdle，无论它所处的进程优先级是多少，线程整体优先级总是1，但是，当进程优先级为Realtime时，那么与tpIdle相组合，线程整体优先级为16；

     如果线程优先级为tpTimeCritical，无论它所处的进程优先级为多少，整体优先组都是15，但是，当进程优先级是Realtime时，那与tpTimeCritical相组合，线程的整体优先级为31；

    其他情况下，整体优先级是线程相对优先级与进程优先级相加。

    优先级举例，屏幕拷贝图像：

{主窗体代码} unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormPaint(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; BitMap:TBitMap; AWidth,AHeight:Integer; implementation uses CopyThread; {$R *.dfm} procedure TForm2.Button1Click(Sender: TObject); begin TCopyThread.Create(AWidth,0,tpLowest); //一个低优先级线程 sleep(100);//让低优先级的线程先执行100毫秒再创建另一线程 TCopyThread.Create(AWidth,AHeight,tpNormal); //一个普通优先级线程 end; procedure TForm2.FormCreate(Sender: TObject); begin BitMap:=TBitMap.Create; BitMap.LoadFromFile('c:/car.bmp'); AWidth:=BitMap.Width; AHeight:=BitMap.Height; end; procedure TForm2.FormDestroy(Sender: TObject); begin BitMap.Free; end; procedure TForm2.FormPaint(Sender: TObject); begin Self.Canvas.Draw(0,0,BitMap); end; end.{多线程类} unit CopyThread; interface uses Classes; type TCopyThread = class(TThread) private { Private declarations } FX:integer; FY:integer; protected procedure Execute; override; public constructor Create(x,y:integer;tp:TThreadPriority); end; implementation uses Unit2,Windows,Graphics; { TCopyThread } constructor TCopyThread.Create(x, y: integer;tp:TThreadPriority); begin Inherited Create(True); FX:=x; FY:=y; Priority:=tp; Resume; end; procedure TCopyThread.Execute; var i,j:Integer; dot:TColorRef; DC:HDC; begin FreeOnTerminate:=True; DC:=GetDC(Form2.Handle); for i := 0 to AWidth - 1 do for j := 0 to AHeight - 1 do if Not Terminated then begin dot:=GetPixel(DC,i,j); SetPixel(DC,i+FX,j+FY,dot); end; end; end.

可以看出虽然第一个线程先运行了100毫秒，但是它的优先级低于第二个线程，所以第二个线程分配更多的CPU时间片，最后第二个线程先执行完成。

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/asciil/archive/2009/07/17/4355997.aspx