Establecer la afinidad de un proceso (En qué CPU se ejecuta el mismo)

[[cHackAll]]

Código Delphi [-]
uses Windows;

var
 Dummy, Mask: Cardinal;
 si: TStartupInfo = (cb: SizeOf(TStartupInfo));
 pi: TProcessInformation;

begin
 CreateProcess(nil, 'notepad', nil, nil, False, 0, nil, nil, si, pi); // Ejecutamos el Bloc de notas,
 GetProcessAffinityMask(DWORD(-1), Dummy, Mask);                      // Obtenemos en Mask, los CPUs disponibles,
 if (Mask and 2) <> 0 then                                            // Verificamos si existen dos CPUs como mínimo...
  SetProcessAffinityMask(pi.hProcess, 2);                             // Le asignamos dicho proceso solo al segundo CPU
end.

function Windows.SetProcessAffinityMask(hProcess, dwProcessAffinityMask: Cardinal): LongBool;
// Cada bit de dwProcessAffinityMask representa un microprocesador o nucleo
hProcess := OpenProcess(PROCESS_SET_INFORMATION, False, dwProcessID); // donde dwProcessID es el identificador del proceso
hProcess := GetCurrentProcess; {-1}
hProcess := TProcessInformation.hProcess;