[DELPHI] LIMPAR MEMÓRIA RESIDUAL DO PROGRAMA

//uses Windows e Forms

procedure TForm1.Button1Click(Sender: TObject); 

var

  MainHandle: THandle;

begin

  try

    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID);

    SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF);

    CloseHandle(MainHandle);

  except

  end;

  Application.ProcessMessages;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】