delphi 如何释放虚拟内存

如题，thanks.

---

up

---

http://hi.baidu.com/xinhua_yin/blog/item/a9b4553f2dbe94c67d1e710f.html
自己看看吧

---

楼上的头像MM真漂亮。

---

虚拟内存从来没考虑过释放，不过虚拟内存是在系统中自己配置大小，盘符的
找了下帖子这样好像可以
SetProcessWorkingSetSize(GetCurrentProcess,  $FFFFFFFF,  $FFFFFFFF);

---

引用

楼上的头像MM真漂亮。

谢谢夸奖啊

---

虚拟内存在程序结束后会自动释放，如果你要运行时释放的话
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    Application.ProcessMessages;
end;

---

if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
    SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
    Application.ProcessMessages;
end;
这么好像释放不了虚拟内存啊，还是谢谢，各位。