在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;

• 上一篇：inno-setup – Inno Setup：如何将下一篇：delphi – 我可以确定一个进程ID(P