"соответствие процессоров" как в диспетчере задач

[Человек_Борща]

Всем доброго времени суток.


В моей программе надо реализровать вот это:


Хочу реализовать это ввиде списка из CheckListBox.

функцией:

function GetProcessorsCount: SmallInt;
var
  Sys: _SYSTEM_INFO; /
begin
  GetSystemInfo(Sys);
  Result := Sys.dwNumberOfProcessors;
end;

получаю кол-во ядер в ЦП. Сколько ядер, столько и Items в ChkListBox.

Далее как определять что отмечено а что нет и в соответствии с отмеченным составлять правильную маску?

Сейчас я её ввожу при помощи edit, в формате "1,2,3,4,5,n".

И эти функции:
Переводит строку "1,2,3,4,5,n" в маску.

function StrToAffinity(AStr: string): Cardinal;
var
  SL: TStringList;
  I: Integer;
  IntVal: SmallInt; 
  Mask: Cardinal; 
begin
  Result := 0;
  SL := TStringList.Create;
  SL.Delimiter := ','; 
  SL.DelimitedText := AStr; 
  try
    for I := 0 to SL.Count - 1 do 
    begin
      IntVal := StrToIntDef(SL[I], 0);
      Dec(IntVal); 
      if IntVal >= 0 then 
      begin
        Mask := 1 shl IntVal; 
        Result := Result or Mask;
      end;
    end;
  finally
    SL.Free;
  end;
end;

Переводит маску в строку "1,2,3,4,5,n".

function AffinityToStr(AMask: Cardinal): string;
var
  I: Integer; 
begin
  Result := '';
  for I := 1 to 16 do //от 1 до 16
  begin
    if I - 1 in TIntegerSet(AMask) then
      if Result <> '' then
        Result := Result + ',' + IntToStr(I)
      else
        Result := IntToStr(I);
  end;
  if Result = '' then
    Result := '0';
end;

Каким образом это делать?
Get/SetProcessAffinity - я знаю.
Мне нужно применить это к отмеченным и не отмеченным элементов списка.

как это реализовать?

[Аватар]

В стандартном CheckListBox есть свойство Checked[Index: Integer]: Boolean; Если в ChkListBox есть такое, то в цикле анализировать и использовать в качестве номера номер из ChkListBox.Items.Strings[i]

+не увидел, что у вас и используется стандартный CheckListBox