具有优先级参数的 CreateProcess？

Question

如何从我的程序中创建和运行能够设置进程优先级的进程？

这是我目前所拥有的：

const
  LOW_PRIORITY            = IDLE_PRIORITY_CLASS;
  //BELOW_NORMAL_PRIORITY = ???
  NORMAL_PRIORITY         = NORMAL_PRIORITY_CLASS;
  //ABOVE_NORMAL_PRIROTY  = ???
  HIGH_PRIORITY           = HIGH_PRIORITY_CLASS;
  REALTIME_PRIORITY       = REALTIME_PRIORITY_CLASS;

procedure RunProcess(FileName: string; Priority: Integer);
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  Done: Boolean;
begin
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  StartInfo.cb := SizeOf(TStartupInfo);
  try
    Done := CreateProcess(nil, PChar(FileName), nil, nil,False,
                          CREATE_NEW_PROCESS_GROUP + Priority,
                          nil, nil, StartInfo, ProcInfo);
    if not Done then
      MessageDlg('Could not run ' + FileName, mtError, [mbOk], 0);
  finally
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

上面的代码可以设置执行进程的优先级。但请看下面的 Windows 任务管理器图片：

您可以设置更多选项，例如低于正常值和高于正常值，这也是我希望能够设置的。浏览 Windows.pas 我看不到这样的价值。

如何使用这些额外参数创建和运行我的流程？

谢谢:)

Answer 1

这两个标志没有在 Delphi 附带的 Windows.pas 中声明。您必须自己声明这些值。这些值可以在 SetPriorityClass 的 MSDN 文档中找到。

const
  BELOW_NORMAL_PRIORITY_CLASS = $00004000
  ABOVE_NORMAL_PRIORITY_CLASS = $00008000

---

顺便记住CreateProcess 修改了它的第二个参数lpCommandLine，也就是你传递给PChar(FileName) 的参数。因此，如果您调用传递位于只读内存中的字符串文字的函数，您的代码将失败。我会添加以下行

UniqueString(FileName);

在调用 CreateProcess 之前。更多信息可以在这里找到：Access Violation in function CreateProcess in Delphi 2009

Answer 2

IDLE_PRIORITY_CLASS
BELOW_NORMAL_PRIORITY_CLASS
NORMAL_PRIORITY_CLASS
ABOVE_NORMAL_PRIORITY_CLASS
HIGH_PRIORITY_CLASS
REALTIME_PRIORITY_CLASS

Reference