清理内存

procedure TForm1.ClearMemory;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
   begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    application.ProcessMessages;
  end;
end;
阅读更多
个人分类: Delphi/API 函数
想对作者说点什么? 我来说一句

内存清理内存清理12313

2009年07月04日 146KB 下载

wince系统内存清理工具

2011年06月10日 25KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭