Ver Mensaje Individual
  #12  
Antiguo 27-01-2011
Avatar de sintecsl
sintecsl sintecsl is offline
Miembro
 
Registrado: jun 2008
Ubicación: Barcelona - Spain
Posts: 40
Reputación: 0
sintecsl Va por buen camino
Optimizar Memoria Mejorado

Creo que este procedimiento es mas eficaz :

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;
__________________
www.sintecsl.es
Responder Con Cita