Delphi 调整应用程序内存大小


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  MainHandle : THandle;
begin
  try
    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ;
    SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ;
    CloseHandle(MainHandle) ;
    //Log('清理内存成功!');
  except
    //Log('无法清理内存!');
  end;
  Application.ProcessMessages;
end;

相关阅读 >>

Delphi 在瑞星2010全保护下创建文件夹

Delphi的initialization和finalization

Delphi中判断窗体最大化和最小化事件

Delphi 对gzip解压

vclzip 3.10.1的简单使用示例

Delphi版雪花算法

Delphi xe增强的rtti妙用--动态创建包中的窗口类

Delphi 去掉mdi窗口的滚动条

incsecond:将一个tdatetime变量加减一定数量的秒数

Delphi中使用内联变量(inline variables) 的5个理由

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...