如何限制应用程序可以分配的内存

我需要一种方法来限制服务可以分配的内存量，以防止服务导致系统饥饿，类似于 SQL Server 允许您设置“最大服务器内存”的方式。

我知道 SetProcessWorkingSetSize 并不完全符合我的要求，但我试图让它按照我认为应该的方式运行。无论我使用什么值，我的测试应用程序的工作集都不受限制。此外，如果我随后立即调用 GetProcessWorkingSetSize，则返回的值不是我之前指定的值。这是我的测试应用程序使用的代码：

var
  MinWorkingSet: SIZE_T;
  MaxWorkingSet: SIZE_T;
begin
  if not SetProcessWorkingSetSize(GetCurrentProcess(), 20, 12800 ) then
    RaiseLastOSError();

  if GetProcessWorkingSetSize(GetCurrentProcess(), MinWorkingSet, MaxWorkingSet) then
    ShowMessage(Format('%d'#13#10'%d', [MinWorkingSet, MaxWorkingSet]));

没有发生错误，但 GetProcessWorkingSetSize 返回的 Min 和 Max 值都是 81,920。

我尝试在 Flags 参数中使用 QUOTA_LIMITS_HARDWS_MAX_ENABLE ($00000004) 来使用 SetProcessWorkingSetSizeEx。不幸的是，如果我在 Flags 中传递除 $00000000 以外的任何内容，SetProcessWorkingSetSizeEx 会失败并显示“代码 87。参数不正确”。

我还尝试使用作业对象来实现相同的目标。启动子进程时，我使用作业对象时存在内存限制。但是，我需要服务能够设置自己的内存限制，而不是依赖“启动”服务来完成此操作。到目前为止，我还没有找到单个进程创建作业对象然后将自身添加到作业对象的方法。这总是失败并拒​​绝访问。

有什么想法或建议吗？

的文档SetProcessWorkingSetSize https://msdn.microsoft.com/en-us/library/windows/desktop/ms686234(v=vs.85).aspx函数说：

dwMinimumWorkingSetSize [in]

...

该参数必须大于 零但小于或等于最大工作集大小。这 默认大小为 50 页（例如，这是 204,800 字节） 具有 4K 页面大小的系统）。如果该值大于零但 小于20页，最小值设置为20页。

如果页面大小为 4K，则强制的最小值为 20 * 4096 = 81920 字节，这就是您看到的值。这些值以字节为单位指定。

要实际限制服务进程的内存，我认为可以创建一个新作业（CreateJobObject https://msdn.microsoft.com/en-us/library/windows/desktop/ms682409(v=vs.85).aspx），设置内存限制（SetInformationJobObject https://msdn.microsoft.com/en-us/library/windows/desktop/ms686216(v=vs.85).aspx）并将当前流程分配给作业（AssignProcessToJobObject https://msdn.microsoft.com/en-us/library/windows/desktop/ms681949(v=vs.85).aspx）在服务的启动例程中。

不幸的是，在 8 之前的 Windows 和 Server 2012 上，如果进程已经属于某个作业，则此操作将不起作用：

Windows 7、Windows Server 2008 R2、Windows XP SP3、Windows Server 2008、Windows Vista 和 Windows Server 2003：该进程不得 已经被分配工作；如果是，该函数将失败 错误_访问_拒绝。从 Windows 8 开始，此行为发生了变化 Windows 服务器 2012。

如果这是你的情况（即你得到ERROR_ACCESS_DENIED在旧版 Windows 上）检查进程是否已分配给作业（在这种情况下，你就不走运了），但也要确保它具有所需的访问权限：PROCESS_SET_QUOTA and PROCESS_TERMINATE.