Optimizacion del Uso de la memoria

[dtomeysoto]

Hola amigos, después de leer este tema les propongo utilizar este fragmento de código luego que hagan el Free.

Código Delphi [-]
procedure Optimizar_memoria;
var
  MainHandle : THandle;
begin
  try
    MainHandle := OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessID);
    SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
  finally
    CloseHandle(MainHandle);
  end;
end;

Esto lo encontré en la web tiempo atrás y me ha venido de maravillas. Ahora mismo no recuerdo de dónde lo saqué pero lo he probado y me funciona bien, incluso mirando en el Administrador de tareas la memoria que consume mi aplicación, cuando se ejecuta el código anterior disminuye esta mucho más que después de hacer el Free.

La explicación que daban en la web era que cuando se minimiza una aplicación Windows libera un "pocotón de cosas" y este procedimiento viene a simular algo parecido. Disculpen mi falta de memoria.

Byeeee