我们有一个 D2007 应用程序，当在 Windows Server 2008（x64、sp1）上运行时，其内存占用量会稳定增长。
它在 Windows Server 2003（x32 或 x64）、XP 等上表现正常...它按预期上下波动。
我们尝试使用附带的内存管理器或最新的 FastMM4 4.92，得到相同的结果。
有没有人尝试在 Win2008 上监视任何 Delphi 应用程序的内存使用情况并确认？
或者会有什么线索吗？
精度：
- 没有常识中的内存泄漏（是的，我对 FastMM 等人非常熟悉）
- 使用 Process Explorer 监控内存使用情况； Win2008 上的虚拟内存（私有字节）和物理内存（工作集私有）都在增长
- 即使存在内存压力，内存消耗仍在增长。 （这就是我们进行调查的原因，因为它导致了失败，但仅限于 Win2008 机器）
Update： //** repaced **// 代码比我们的应用程序简单得多，但显示了相同的行为。
创建一个包含 10,000,000 个对象的列表，然后创建 10,000,000 个接口，执行 2 次，使用的内存会增加约 60MB，在 Windows Server 2008 上再执行 100 次，会增加大约 300MB，但只会返回到 XP 上的情况。
如果您启动多个实例，则不会释放内存以允许其他实例运行。相反，页面文件会增长并且服务器会爬行......
Update 2: see 质检报告73347
经过进一步调查，我们有追踪到关键部分如下面的代码所示。
将该代码放入带有按钮的简单 VCL 应用程序中。并使用 Process Explorer 进行监控：
它开始时约为 2.6 MB，运行 5 次后（单击按钮），它保持在 ~118.6 MB。
5 次执行中丢失了 116MB。
//***********************
const
CS_NUMBER = 10000000;
type
TCSArray = Array[1..CS_NUMBER] of TRTLCriticalSection;
PCSArray = ^TCSArray;
procedure TestStatic;
var
csArray: PCSArray;
idx: Integer;
begin
New(csArray);
for idx := 1 to length(csArray^) do
InitializeCriticalSection(csArray^[idx]);
for idx := 1 to length(csArray^) do
DeleteCriticalSection(csArray^[idx]);
Dispose(csArray);
end;
procedure TestDynamic(const Number: Integer);
var
csArray: array of TRTLCriticalSection;
idx: Integer;
begin
SetLength(csArray, Number);
for idx := Low(csArray) to High(csArray) do
InitializeCriticalSection(csArray[idx]);
for idx := Low(csArray) to High(csArray) do
DeleteCriticalSection(csArray[idx]);
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
ReportMemoryLeaksOnShutdown := True;
TestStatic;
TestDynamic(CS_NUMBER);
end;
