将应用程序11M内存占用，降至500K

最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。
{
**********
* Clear Memory
* From Muse2008
**********
}
procedure ClearMemory;
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    begin
      SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
      Application.ProcessMessages;
    end;
end;
 

关于 SetProcessWorkingSetSize 和内存释放

在应用程序中，往往为了释放内存等，使用一些函数，其实，对于内存操作函数要谨慎使用，比如大家常常想到的SetProcessWorkingSetSize，其实对于windows来说，系统会自动在程序闲置时（如程序被最小化）释放内存的，自己用内存释放时，往往会造成一些莫名的内存错误，造成自己的应用程序及系统不稳定。

将物理内存的占用挪到虚拟内存里
其实，你也可以，试试看把一个程序最小化到任务栏，再看看任务管理器，看到没，你的程序占用的实际内存一下子减少了，看来并不是我有什么方法能够压缩内存，而是操作系统本身就有这个机制，即当程序不使用时（最小化），操作系统会调用某些命令，来将该程序占用的内存

移至虚拟内存，只保留一小部分常规代码

所以我们就看到了 这种情景，占用的内存一下子就缩小了。

SetProcessWorkingSetSize
使用这个函数来设置应用程序最小和最大的运行空间，只会保留需要的内存。当应用程序被闲置或系统内存太低时，操作系统会自动调用这个机制来设置应用程序的内存。应用程序也可以使用  VirtualLock  来锁住一定范围的内存不被系统释放。事实上，使用该函数并不能提高什么性能，也不会真的节省内存。因为他只是暂时的将应用程序占用的内存移至虚拟内存，一旦，应用程序被激活或者有操作请求时，这些内存又会被重新占用。如果你强制使用该方法来 设置程序占用的内存，那么可能在一定程度上反而会降低系统性能，因为系统需要频繁的进行内存和硬盘间的页面交换。之所以能够 总是保持 最小内存，是因为使用了定时器，不停的进行该操作，，所以性能可想而知，虽然换来了小内存的假象，对系统来说确实灾难。

该函数也并非无一是处，
1 。当我们的应用程序刚刚加载完成时，可以使用该操作一次，来将加载过程不需要的代码放到虚拟内存，这样，程序加载完毕后，保持较大的可用内存。
2.程序运行到一定时间后或程序将要被闲置时，可以使用该命令来交换占用的内存到虚拟内存。