home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2007 April / PCpro_2007_04.ISO / files / dsl / NVinst.exe / Scripts / Scripter / MemDefrag.nvs < prev    next >
Encoding:
Text File  |  2007-02-10  |  543 b   |  11 lines
  1. function GetCurrentProcess(): Longint; external 'GetCurrentProcess@kernel32.dll stdcall';
  2. function SetProcessWorkingSetSize(prc:Longint; min:longint; max:longint): Longint; external 'SetProcessWorkingSetSize@kernel32.dll stdcall';
  3. var v,v1,v2:integer;
  4. Begin
  5. SetProcessWorkingSetSize(GetCurrentProcess(),-1,-1);
  6. repeat
  7. v:=WaitEvent(v1,v2);
  8. if(v=NMNP_ACTION)and((v1 and NVACTION_LIST)<>0) and (((v1 and NVACTION_RECHECK)<>0)or((v1 and NVACTION_GETFROMFILE)<>0))then SetProcessWorkingSetSize(GetCurrentProcess(),-1,-1);
  9. until v=0;
  10. End.
  11.