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

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

угу, спасибо! Я заметил что не хватает CPU_0

А можно пожалуйста пример с SetProcessAffinityMask? Именно этого я так до конца не понимаю..

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

смысл переменных тот же.

p:=0;
for i:=0 to 31 do if CL.Checked[i] then p:=p or (1 shl i);//надеюсь не напутал
SetProcessAffinityMask(h,p);

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

var i:integer;
p,s:DWORD;
h:THandle;
begin
h:=OpenProcess(id,false,PROCESS_QUE RY_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);//я так думаю тебе нужно всетаки чекать именно те процессоры что разрешены процессу, а не доступные)

p:=0;
for i:=0 to 31 do if CL.Checked[i] then p:=p or (1 shl i);//надеюсь не напутал
SetProcessAffinityMask(h,p);

Таак соберу ка я все в кучу=)
У меня данным способом надо указывать приоритет программы запускаемой в потоке да ещё и параметры программы передаютсЯ в этот-же поток через структуру, ну с этим я сам как-нибуть=) :

var
  PI:ProccsInformation;
i:integer;
p,s:dword;
begin
p:=0;
for i:=0 to 31 do
if CL.Checked[i] then p:=p or (1 shl i);
SetProcessAffinityMask(PI.dwProcessId,p);

спасибо всем! Жаль плюсы по стопитцот раз нельзя ставить! =(