SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Set/get total thread priority

Total thread priority is a sum of local thread priority and class priority of current process.

Use SetPriorityClass function and Priority property of TThread type to set priority parameters. Use GetPriorityClass function and Priority property of TThread type to get information about total thread priority.


type
  TTestThread = class(TThread)
  private
    j: Integer;
    { Private declarations }
  protected
    procedure GetInfo;
    procedure Execute; override;  
  end;

...

// Set priority
procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TTestThread;
begin
  NewThread:=TTestThread.Create(False);
  case RadioGroup2.ItemIndex of
    0: NewThread.Priority:=tpIdle;
    1: NewThread.Priority:=tpLowest;
    2: NewThread.Priority:=tpNormal;
    3: NewThread.Priority:=tpHighest;
    4: NewThread.Priority:=tpTimeCritical;
  end;
  case Form1.RadioGroup1.ItemIndex of
    0: SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS);
    1: SetPriorityClass(GetCurrentProcess, NORMAL_PRIORITY_CLASS);
    2: SetPriorityClass(GetCurrentProcess, HIGH_PRIORITY_CLASS);
    3: SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
  end;
end;

// Get priority
procedure TTestThread.GetPriority;
var
  TotalStr: string;
begin
  TotalStr:='Total Priority = ';
  case Priority of
    tpIdle: TotalStr:=TotalStr+'Idle';
    tpLowest: TotalStr:=TotalStr+'Lowest';
    tpNormal: TotalStr:=TotalStr+'Normal';
    tpHighest: TotalStr:=TotalStr+'Highest';
    tpTimeCritical: TotalStr:=TotalStr+'Time critical';
  end;
  TotalStr:=TotalStr+' (local thread) + ';

  case GetPriorityClass(GetCurrentProcess) of
    IDLE_PRIORITY_CLASS: TotalStr:=TotalStr+'Idle';
    NORMAL_PRIORITY_CLASS: TotalStr:=TotalStr+'Normal';
    HIGH_PRIORITY_CLASS: TotalStr:=TotalStr+'High';
    REALTIME_PRIORITY_CLASS: TotalStr:=TotalStr+'Realtime';
  end;
  TotalStr:=TotalStr+' (class priority)';

  Form1.Label1.Caption:=TotalStr;
end;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes