delphi – SetProcessAffinityMask – 选择多个处理器？

如何使用SetProcessAffinitymask选择多个逻辑处理器？

在Windows任务管理器中,您可以将此作为示例：

我更新了我的CreateProcess程序来执行此操作：

type
  TProcessPriority = (ptLow         = $00000040,ptBelowNormal = $00004000,ptNormal      = $00000020,ptAboveNormal = $00008000,ptHigh        = $00000080,ptRealtime    = $00000100);

procedure RunProcess(Filename: String; Priority: TProcessPriority);
var
  StarTinfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: String;
  Done: Boolean;
begin
  FillChar(StarTinfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StarTinfo.cb := SizeOf(TStartupInfo);

  CmdLine := Filename;
  UniqueString(CmdLinE);
  try
    Done := CreateProcess(nil,PChar(CmdLinE),nil,false,CREATE_NEW_PROCESS_GROUP + Integer(Priority),StarTinfo,ProcInfo);
    if Done then
    begin
      // Todo: Get actual cpu core count before attempTing to set affinity!
      // 0 = <All Processors>
      // 1 = CPU 0
      // 2 = CPU 1
      // 3 = CPU 2
      // 4 = CPU 3
      // 5 = CPU 5
      // 6 = CPU 6
      // 7 = CPU 6
      // 8 = CPU 7

      // this sets to CPU 0 - but how to allow multiple parameters to
      // set more than one logical processor?
      SetProcessAffinitymask(ProcInfo.hProcess,1); 
    end else
      messageDlg('Could not run ' + Filename,mtError,[mbOk],0)
  finally
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

请注意我在那里的评论.最好更新我的过程以包含一个新的Affinity参数,我可以将其传递给SetProcessAffinitymask.

由于显而易见的原因,调用其中任何一个都不会选择相应的处理器,它们会给出我想要做的事情的想法：

SetProcessAffinitymask(ProcInfo.hProcess,1 + 2); 
SetProcessAffinitymask(ProcInfo.hProcess,1 and 2);

例如,为进程选择任何CPU,如任务管理器中所示.

我应该怎么做,使用数组,集合或其他？我无法使用多个值.

谢谢.

function SingleProcessorMask(const ProcessorIndex: Integer): DWORD_PTR;
begin
  Result := 1 shl (ProcessorIndex-1);
end;

function CombinedProcessorMask(const Processors: array of Integer): DWORD_PTR;
var
  i: Integer;
begin
  Result := 0;
  for i := low(Processors) to high(Processors) do
    Result := Result or SingleProcessorMask(Processors[i]);
end;

function ProcessorInMask(const ProcessorMask: DWORD_PTR; 
  const ProcessorIndex: Integer): Boolean;
begin
  Result := (SingleProcessorMask(ProcessorIndeX) and ProcessorMask)<>0;
end;