不好意思昨天匆忙忘了点东西
//降低程序内存占用
procedure TForm1.ClearMemory;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
application.ProcessMessages;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject); //Timer1的Interval设置为5000;
begin
ClearMemory;
end;