减少delphi的程序使用的内存大小

最近在写一个后门程序，无意中看到这么一段代码，试了下，果然有效。原来的程序占用5M多的内存，使用后果然到了600K左右，不过料想代码的执行效率可能会被缩减了，因为原先预分配的内存空间可能变成动态产生的了，不过对于我的程序来说速度不是问题。

//来自 http://www.cn-doc.com/_soft_delphi_tech_doc/2005_08_18_01/20050818012858312.htm

 好多天没有写blog了，最近解决了一个问题-减少内存占用。不过是有条件的，只能在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;