Из delphi в c++

[zotox]

Есть код (на делфи):

var
  ProcessID: DWord;
  ProcessHandle: THandle;
  Mbi: TMemoryBasicInformation;
  Addr: DWord;
  Value, val2, lo: DWord;
  I: Cardinal;
  Buf: PChar;
  BytesRead: DWord;
begin
  ProcessID := 8916;

  value := 43910045;
  val2 := 43910011;

  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);

  if ProcessHandle <> 0 then
    try
      Addr := 0;

      while VirtualQueryEx(ProcessHandle, Pointer(Addr), Mbi, SizeOf(Mbi)) <> 0 do
       begin

         if (Mbi.State = MEM_COMMIT) and not ((Mbi.Protect and PAGE_GUARD) = PAGE_GUARD) then
         begin
           GetMem(Buf, Mbi.RegionSize);
           try

             if ReadProcessMemory(ProcessHandle, Mbi.BaseAddress, Buf,
               Mbi.RegionSize, BytesRead) then
              begin

                for I := 0 to BytesRead - SizeOf(Value) do
                 begin
                   if PDWord(@Buf[I])^ = Value then
                    begin
                      WriteLn('Value ' + IntToStr(Value) + ' found at ' +
                      IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8));

                      WriteProcessMemory(processhandle, pointer(Cardinal(Mbi.BaseAddress) + I), @val2, 4, lo);
                      //showmessage(IntToHex(Integer(Cardinal(Mbi.BaseAddress) + I), 8));
                    end;
                 end;
              end
             else
              WriteLn('Failed to read process memory ' + IntToStr(GetLastError));

           finally
             FreeMem(Buf);
           end;
         end;

         Addr := Addr + Mbi.RegionSize;
     end;

   finally
        CloseHandle(ProcessHandle);
   end
 else
   WriteLn('Failed to open process');

 readln;
end.

Нужно его перенести в C++
Мои наработки:

#include <windows.h>

int main()
{
	DWORD aaaa = 6020;
	HANDLE process_h;
	process_h = OpenProcess(PROCESS_ALL_ACCESS, 0, aaaa);

	if (process_h != 0)
	{
		DWORD addr;
		MEMORY_BASIC_INFORMATION mbi;
		addr = 0;

		while (VirtualQueryEx(process_h, &addr, &mbi, sizeof(mbi)) != 0)
		{
			if ((mbi.State = MEM_COMMIT) && (mbi.Protect & PAGE_GUARD) != PAGE_GUARD)
			{
				DWORD bytesread, value;
				DWORD *buf = new DWORD[mbi.RegionSize];

				try
				{
					if (ReadProcessMemory(process_h, mbi.BaseAddress, &buf, mbi.RegionSize, &bytesread))
					{
						MessageBoxA(0,0,0,0);
						//for (int i = 0; i < bytesread - sizeof(value); i++)
						//{
						
						//}
					}
					else
					{
						DWORD i = GetLastError();//ERROR 299
					}
				}
				catch(...)
				{
				
				}
				delete[] buf;
				addr += (DWORD)mbi.RegionSize;
			}
		}
	}
	//Sleep(100000);

	return 0;
}

Но тут проблема в том что при ReadProcessMemory - выскакивает ошибка 299 (GetLastError)
Помогите пожалуйста