🚀 go-pugleaf

Hi All,

I am using the following code to free memory on my machine, although I
always get access violation once the CopyMemory function is reached, can
someone help me please and tell me what exactly I am doing wrong.
Thanks in advance

BR.

#define DIV 1024
#define WIDTH 7
int Granularity;
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 / Granularity;
  BytesToFree = PagesToFree * Granularity;


  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(&WriteAddress, &ReadAddress, Granularity); // Error shows
here
    WriteAddress = WriteAddress + Granularity;
    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;
  Label16->Caption = IntToStr(Granularity);
}
//--------------------------------------------------------------------------
-