本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);var MainHandle : THandle;begin try MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ; SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ; CloseHandle(MainHandle) ; //Log('清理内存成功!'); except //Log('无法清理内存!'); end; Application.ProcessMessages;end;
相关阅读 >>
Delphi的initialization和finalization
Delphi xe增强的rtti妙用--动态创建包中的窗口类
incsecond:将一个tdatetime变量加减一定数量的秒数
Delphi中使用内联变量(inline variables) 的5个理由
更多相关阅读请进入《Delphi》频道 >>