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); GetProcessAffinityMask(DWORD(-1), Dummy, Mask); if (Mask and 2) <> 0 then SetProcessAffinityMask(pi.hProcess, 2); end.
function Windows.SetProcessAffinityMask(hProcess, dwProcessAffinityMask: Cardinal): LongBool;
hProcess := OpenProcess(PROCESS_SET_INFORMATION, False, dwProcessID); hProcess := GetCurrentProcess;
hProcess := TProcessInformation.hProcess;