Optimering af ram

Prøv det her:

procedure FreeLibrary(ProcessID:Cardinal);
var
  Handle : THandle;
begin
  Handle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
  SetProcessWorkingSetSize(MainHandle,DWORD(-1),DWORD(-1));
  CloseHandle(MainHandle);
end;

Som den dumme newbee jeg er, kan du så ikke lave et eksempel med en button1click eller sådan et eller andet :)

-TuDack

Hmm... det virker vist kun på et program af gangen, men den her kode frigøre koden til programmet selv:

procedure FreeLibrary(ProcessID:Cardinal);
var
  MainHandle : THandle;
begin
  MainHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
  SetProcessWorkingSetSize(MainHandle,DWORD(-1),DWORD(-1));
  CloseHandle(MainHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
ProcessID: Cardinal;
begin
GetWindowThreadProcessId(Form1.Handle,@ProcessID);
FreeLibrary(ProcessID);
end;