delphi 如何释放虚拟内存

Question

如题，thanks.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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