5,557
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
windows server2016上delphi开发应用程序占用内存有时2~3秒内会涨1G左右,有时又正常,凌晨啥事都没干也会突然涨上去;
win10和win2012的系统上运行,没见这个问题。
求助,困扰了大半年了
这样降低内存,不好吧,现在服务器内存都大得很,何必要手工降低呢!
冲冲冲
主页面放一个Timer1Timer
然后定时执行
procedure TFMain.Timer1Timer(Sender: TObject);
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
Application.ProcessMessages;
end;
SetProcessWorkingSetSize