delphi 内存管理，定期释放

创建一个定时器，设置每隔N秒触发一次，也就是每隔多久进行一次内存清除！！

 

 

//调用

procedure TfmMain.Timer1Timer(Sender: TObject);

begin

   TClearMemory.Create(False);

end;

 

 

ClearMemoryThread单元代码如下：

unit ClearMemoryThread;
interface
uses
   Classes, SysUtils, Forms, Windows;
type
   TClearMemory = class(TThread)
   private
   protected
      procedure Execute; override;
   public
      constructor Create(Suspended: Boolean);
   end;
implementation
//清理内存
procedure ClearMemory;
begin
   if Win32Platform = VER_PLATFORM_WIN32_NT then
   begin
      SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
      Application.ProcessMessages;
   end;
end;
//创建线程
constructor TClearMemory.Create(Suspended: Boolean);
begin
   inherited Create(Suspended);
   FreeOnTerminate := True; {这可以让线程执行完毕后随即释放}
end;
//线程启动
procedure TClearMemory.Execute;
begin
   ClearMemory;
end;
end.