Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TrimAppMemorySize;
- var
- MainHandle : THandle;
- begin
- try
- MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, GetCurrentProcessID) ;
- SetProcessWorkingSetSize(MainHandle, $FFFFFFFF, $FFFFFFFF) ;
- CloseHandle(MainHandle) ;
- except
- end;
- Application.ProcessMessages;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement