🚀 go-pugleaf

try this :

#define DIV 1024
#define WIDTH 7
int Granularity, PageSize;
MEMORYSTATUS stat;

//--------------------------------------------------------------------------
-

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  int UserEntry, PagesToFree, BytesToFree, WriteAddress, ReadAddress,
ProgressVal;
  AnsiString strTemp;
  LPVOID BaseAddr;
  const int nkb = 1024;

  UserEntry = (StrToInt(Edit1->Text) * nkb) * nkb;
  PagesToFree = UserEntry / PageSize;
  BytesToFree = PagesToFree * PageSize;


  if(BytesToFree <= 0)
  { lblCantFree->Caption = "Not a valid positive number";
    lblCantFree->Visible = true;
    ShowMessage("Error");
    return;
  }

  if(BytesToFree <= stat.dwAvailPhys)
  { lblCantFree->Caption = "That amount is already free";
    lblCantFree->Visible = true;
    ShowMessage("Error");
    return;
  }
  ProgressBar1->Min = 0;
  ProgressBar1->Max = PagesToFree;
  ProgressBar1->Position = 0;

  strTemp = Granularity;
  BaseAddr = VirtualAlloc(NULL, BytesToFree, MEM_RESERVE, PAGE_NOCACHE |
PAGE_READWRITE);

  if(BaseAddr == 0)
  { lblCantFree->Caption = "MEM_RESERVE failed";
    lblCantFree->Visible = true;
    ShowMessage("Error");
    return;
  }

  BaseAddr = VirtualAlloc(BaseAddr, BytesToFree, MEM_COMMIT, PAGE_NOCACHE |
PAGE_READWRITE);
  if(BaseAddr == 0)
  { VirtualFree(BaseAddr, 0, MEM_RELEASE);
    lblCantFree->Caption = "MEM_COMMIT failed";
    lblCantFree->Visible = true;
    ShowMessage("Error");
    return;
  }

  WriteAddress = (int)BaseAddr;
  ReadAddress = StrToInt(strTemp);
  ShowMessage(Granularity);

  while(WriteAddress < ((int)BaseAddr + BytesToFree))
  {
    CopyMemory((void*)WriteAddress, (void*)ReadAddress, PageSize);
    WriteAddress = WriteAddress + PageSize;
    ProgressVal = ProgressVal + 1;
    ProgressBar1->Position = ProgressVal;
  }
  VirtualFree(BaseAddr, BytesToFree, MEM_DECOMMIT);
  VirtualFree(BaseAddr, 0, MEM_RELEASE);
  ProgressBar1->Visible = false;
}
//--------------------------------------------------------------------------
-

void __fastcall TForm1::Button1Click(TObject *Sender)
{
GlobalMemoryStatus (&stat);
  Label7->Caption=stat.dwMemoryLoad;
  Label8->Caption=stat.dwTotalPhys;
  Label9->Caption=stat.dwAvailPhys;
  Label10->Caption=stat.dwTotalPageFile;
  Label11->Caption=stat.dwAvailPageFile;
  Label12->Caption=stat.dwTotalVirtual;
  Label14->Caption=stat.dwAvailVirtual;

  SYSTEM_INFO SysInfo;
  GetSystemInfo(&SysInfo);
  Granularity = SysInfo.dwAllocationGranularity;
  PageSize = SysInfo.dwPageSize;
  Label15->Caption = IntToStr(PageSize);
  Label16->Caption = IntToStr(Granularity);

}
//--------------------------------------------------------------------------
-


Yahia