procedure TrimWorkingSet;
var
  MainHandle : THandle;
begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessID);
  try
    SetProcessWorkingSetSize(MainHandle, DWORD(-1), DWORD(-1));
  finally
    CloseHandle(MainHandle);
  end;
end;

Is that what you were thinking of?

Tom Munro Glass

On Wed, 27 Apr 2005 11:39, [EMAIL PROTECTED] wrote:
> I few years back I had some code that freeing up temporary Windows memory
> for the running application. It's the same effect as minimising and
> restoring the application. I think it was just a few lines of code or an
> api call. Does anyone know of this code.
> _______________________________________________
> Delphi mailing list
> [email protected]
> http://ns3.123.co.nz/mailman/listinfo/delphi
_______________________________________________
Delphi mailing list
[email protected]
http://ns3.123.co.nz/mailman/listinfo/delphi

Reply via email to