Аналог "Задать соответсвие.." в Диспетчере задач

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

Привет всем! Как такое реализовать?

Функция получения кол-ва доступных на ПК ядер процессора(Процессоров) есть.. а как такое реализовать?

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

Как получить что-то типа токого?:

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...23(VS.85).aspx
вот как задать это соответствие(там битовая маска)
(можно для потока, но функция иная)
Get соответственно получить её.
http://msdn.microsoft.com/en-us/libr...81(VS.85).aspx
тут можно получить кол-во процессоров, и их доступность

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

Допустим кол-во процссоров я получаю вот так:

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

По поводу доступности немного не понял, как понять "доступность процессора"?

Про SetAffinityMask я знаю..
но как допустим указать 3 и 4 cpu если в системе 2 ЦП по 2 Ядра на каждом?
как это делается в Диспетчере ? Думаю просто сложить маски это будет глупо.

[Пепел Феникса]

но как допустим указать 3 и 4 cpu если в системе 2 ЦП по 2 Ядра на каждом?

допустим

const 
  PN_0=$1;
  PN_1=$2;
  PN_2=$4;
  PN_3=$8;
  PN_4=$10;
  PN_5=$20;
  PN_6=$40;
  PN_7=$80;
  PN_8=$100;
  PN_9=$200;
  PN_10=$400;
  PN_11=$800;
  PN_12=$1000;
  PN_13=$2000;
  PN_14=$4000;
  PN_15=$8000;
  //думаю хватит.
  PN_ALL=$FFFFFFFF;
//ставим второй и третий процессор процессу
SetProcessAffinityMask(h,PN_2 or PN_3);

По поводу доступности немного не понял, как понять "доступность процессора"?

система может запретить использовать процессор.(согласись глупо давать тогда возможность его выбрать)

Думаю просто сложить маски это будет глупо.

бинарное сложение(or)
и ничего глупого, это и есть бинарная маска.

ЗЫ, мои константы подходят к любым из функций с бинарными масками процессоров(в том числе их маска доступности)

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

Осталось понять как сделать эмм к примеру если есть 32 чекбокса и при 4-ёх процессорах, будет активны только 4 чекбокса из 32

[Пепел Феникса]

if (Sys.dwActiveProcessorMask and PN_1)<>0 then //есть процессор с номером один

и тд.
(процессор с номером ноль есть всегда)
в принципе лучше всего сначало проверять кол-во процессоров, если больше одного то уже показать пункт выбора процев.

[JTG]

Брр, некрасиво

CheckboxN.Checked := longbool(dwActiveProcessorMask shr N and 1); //N = 0..31

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

Спасибо , обоим ставлю ПЛЮС!

Вот что получилось(см. аттач).

только смущает вот это:

//приходиться сначало всем выставлять enabled false
CheckListBox1.ItemEnabled[i]:=False; // <<--конкретно это
CheckListBox1.Checked[i]:=longbool(Sys.dwActiveProcessorMask shr i and 1);
//тут опять возвращать... 
CheckListBox1.ItemEnabled[i]:=longbool(Sys.dwActiveProcessorMask shr i and 1);

и снова проблема=)
Как асоцировоть константы с выбранными чекбоксами?
вот константы:

  CPU_1=$1;
  CPU_2=$2;
  CPU_3=$4;
  CPU_4=$8;
  CPU_5=$10;
  CPU_6=$20;
  CPU_7=$40;
  CPU_8=$80;
  CPU_9=$100;
  CPU_10=$200;
  CPU_11=$400;
  CPU_12=$800;
  CPU_13=$1000;
  CPU_14=$2000;
  CPU_15=$4000;
  CPU_16=$8000;
  CPU_17=$10000;
  CPU_18=$20000;
  CPU_19=$40000;
  CPU_20=$80000;
  CPU_21=$100000;
  CPU_22=$200000;
  CPU_23=$400000;
  CPU_24=$800000;
  CPU_25=$1000000;
  CPU_26=$2000000;
  CPU_27=$4000000;
  CPU_28=$8000000;
  CPU_29=$10000000;
  CPU_30=$20000000;
  CPU_31=$40000000;
  CPU_ALL=$FFFFFFFF;

кстати правельно ли составлены константы?
Если я правельно понял то от 1 до 4 все множится на 2 , потом далее к тому что есть приписывается по 0?

[Пепел Феникса]

в вашем списке должно быть 32 элемента.
тогда выходит так:
CL:TCheckBoxList;
id//это PID нашего процесса.
делаем так.

var i:integer;
p,s:DWORD;
h:THandle;
begin
h:=OpenProcess(id,false,PROCESS_QUERY_INFORMATION);//проверку стоит добавить
GetProcessAffinityMask(h,p,s);
CloseHandle(h);
for i:=0 to 31 do CL.ItemEnabled[i]:=longbool((s shr i) and 1);
for i:=0 to 31 do CL.Checked[i]:=longbool((p shr i) and 1);//я так думаю тебе нужно всетаки чекать именно те процессоры что разрешены процессу, а не доступные)

примерно так

кстати, в вашем коде одного процессора не хватает.