1:
2:
3:

    Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $procpid)
    DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0]                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button4Click(Sender: TObject);
var
  handle: THandle;
  winver: TProc;
  pid:Integer;
begin
      pid :=FindWindow(nil,'Startseite von Mozilla Firefox - Mozilla Firefox');
      GetWindowThreadProcessId(pid ,@pid);
  handle := LoadLibrary('psapi.dll'); // DLL laden
  if handle = 0 then // Prüfen, ob die DLL geladen worden ist
  begin
    ShowMessage('Laden fehlgeschlagen');
    Exit;
  end;
  @winver := GetProcAddress(handle, 'EmptyWorkingSet'); // Funktion aus der DLL ausführen
  if @winver <> nil then begin
    result :=(pid);
  end;
  Label1.Caption := IntToStr(Lo(winver)) + '.' + IntToStr(Hi(winver));
  FreeLibrary(handle); // DLL aus dem Speicher freigeben
end;                    

1:

SetProcessWorkingsetsize(GetCurrentProcess, $ffffffff, $ffffffff);                    

1:

SetProcessWorkingsetsize(GetCurrentProcess, $ffffffff, $ffffffff);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button4Click(Sender: TObject);
var
  pid:Integer;
begin
      pid :=FindWindow(nil,'Startseite von Mozilla Firefox - Mozilla Firefox');
      GetWindowThreadProcessId(pid ,@pid);

SetProcessWorkingsetsize(OpenProcess(SYNCHRONIZE, False, pid), $ffffffff, $ffffffff);
end;                    

1:
2:
3:
4:

  Window := FindWindow(nil,'Startseite von Mozilla Firefox - Mozilla Firefox');
  GetWindowThreadProcessId(Window,@PID);

edit1.text:=booltostr(SetProcessWorkingsetsize(OpenProcess(PROCESS_ALL_ACCESS,false,PID), $ffffffff, $ffffffff));