Get and Set Affinity

[Chugun]

Доброго, уважаемые форумчане.
Сильно не пинайте, вопрос не самый сложный, но я не могу понять...

пытаюсь через ф-ции
GetProcessAffinityMask получить
и
SetProcessAffinityMask выставить
соответствия на процессоры.

в первом случае я делаю так:

var
phwnd: THandle;
cpuset,sysmask: dword;
begin
phwnd:=FindWindow(nil,'ClientName');
GetProcessAffinityMask(phwnd,cpuset,sysmask);
showmessage('cpuset: '+inttostr(cpuset));//для проверки
showmessage('sysmask: '+inttostr(sysmask));//для проверки
end;

код выдаёт нули

для сетера у меня было несколько вариантов, ни один не срабатывал

if SetProcessAffinityMask(phwnd,cpuset)
  then showmessage('Affinity yes')
  else showmessage('Affinity no');

даже так в ответ я получаю "no" и, естественно, ни о каком переключении на другие процессоры речи быть не может

помогите пож-та разобраться в чём проблема, что не правильно делаю

[Son Of Pain]

Потому что надо передавать хендл процесса, а не хендл окна

[Chugun]

Сообщение от Son Of Pain

Потому что надо передавать хендл процесса, а не хендл окна

да, я это уже понял...
сделал так:

  GetWindowThreadProcessId(phwnd, @PID);
  prhwnd:=openprocess(Process_All_Access,true,pid);
  GetProcessAffinityMask(prhwnd,cpuset,sysmask);
  SetProcessAffinityMask(prhwnd,sysmask xor dword(1) xor dword(2))

где

xor dword(1) xor dword(2)

отключение первых двух ядер

может есть более простой способ?
при открытии процесса через openprocess его надо закрывать?
я просто не совсем понимаю что делает эта ф-ция