1:

[DCC Fehler] DPS.pas(54): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button1Click(Sender: TObject);
var
  hWnd: THandle;
  hProc : THandle;
  pId : DWord;
  lBuf : integer;
  Bytesread: DWord;
  adresse : pointer;
  puffer : single;

begin
  // WindowHandle ermitteln
  hWnd := FindWindow('ArenaNet_Dx_Window_Class', 'Guild Wars 2');
  if hWnd = 0 then
    showMessage ('Cannot find Window.')
  else begin
    //PID
    GetWindowThreadProcessId(hWnd,@pID);
    // Handle OpenProcess
    hProc := OpenProcess(Process_VM_Read,false, pID);
    if hProc = 0 then
      showMessage('Cannot open process.')
    else
      //label1.Caption := FloatToStr(ReadData(hProc,$4455E048));
      ReadProcessMemory(hProc, ptr($4455E048), @puffer, sizeof(puffer), Bytesread); //READ  <---- Fehlerzeile
      label1.Caption := FloatToStr(puffer);
      closehandle(hProc);//close
    end;
end;