Освобождение памяти других приложений

bool ProcessReduceMemory()
 {
 ULONG PID = GetCurrentProcessId();
 HANDLE hOpenProcess = OpenProcess(PROCESS_ALL_ACCESS, false, PID);
 bool bResult = SetProcessWorkingSetSize(hOpenProcess, -1, -1);
 CloseHandle(hOpenProcess);
 return bResult;

 
bool ProcessReduceMemory()
 {
 HANDLE hOpenProcess = OpenProcess(PROCESS_ALL_ACCESS, true, 992);
 bool bResult = SetProcessWorkingSetSize(hOpenProcess, -1, -1);
 CloseHandle(hOpenProcess);
 return bResult;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ProcessReduceMemory();
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <Tlhelp32.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
unsigned long PIDByName(AnsiString AProcessName)
{
  HANDLE pHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  PROCESSENTRY32 ProcessEntry;
  unsigned long pid;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(pHandle, &ProcessEntry);
 
  while (Loop)
    {
     if (strcmp(ProcessEntry.szExeFile, AProcessName.c_str()) == 0)
      {
                  pid = ProcessEntry.th32ProcessID;
                  CloseHandle(pHandle);
                  return pid;
      }
      Loop = Process32Next(pHandle, &ProcessEntry);
    }
    return 0;
}
 
bool ProcessReduceMemory()
 {
 int pid;
 pid = PIDByName("opera.exe");
 HANDLE hOpenProcess = OpenProcess(PROCESS_ALL_ACCESS, true,pid);
 bool bResult = SetProcessWorkingSetSize(hOpenProcess, -1, -1);
 CloseHandle(hOpenProcess);
 return bResult;
 }
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   ProcessReduceMemory();
}
//---------------------------------------------------------------------------