google代码搜索确实是个好地方,就跟优快云一样,资料真不少。下面这个例子就是自定义时间清理内存空间。
unit TrimWorkingSet;
interface
implementation
uses
SysUtils, Windows, ExtCtrls;
type
TTrimmer = class(TTimer) //继承自TTimer定时器类
public
procedure TimerTick(Sender: TObject);
end;
procedure TTrimmer.TimerTick(Sender: