Ver Mensaje Individual
  #2  
Antiguo 08-11-2017
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Veo un error de lógica:
Pones el valor de VAL en el Edit, antes de cargarlo mediante la funcion ReadProcessMemory.
Además parece que falta un begin o sobra un end...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Buffer: Cardinal;
  Val: dword;
begin
  // Inicializo VAL con valor 0 por si no entra en condicion
  Val := 0;

  // Si se cumple la condicion (MISCH > 0)
  if MICSH > 0 Then
  begin
    // Obtengo el Handle del proceso
    HandleX := OpenProcess(PROCESS_ALL_ACCESS, False, dwPID);
    // Leo una posicion de memoria y la guardo en la posicion de memoria que ocupa Val
    ReadProcessMemory(HandleX,Pointer(MICSH+$13845F), @Val, 4, Buffer);
  end;

  // Muestro el valor de Val convertido a string
  Edit1.Text := IntToStr(Val);
end.
Responder Con Cita