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 让程序主窗口不响应“显示桌面”

Delphi调用外部程序并等待其运行结束

Delphi winexec 执行cmd

Delphi xe6 使用intent启动活动并在android应用程序中获取返回值的示例

Delphi 如何在桌面添加右键菜单

Delphi 点击关闭叉时,最小化图标

Delphi 写变速齿轮外挂

Delphi 安卓app在线升级

Delphi opendialog1文件过滤类型

Delphi 切换大小写的例子

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

转载请注明出处：木庄网络博客 » Delphi 调整应用程序内存大小