procedure TForm1.Button1Click(Sender: TObject);
var
  hProcess,HandleWindow: THandle;
  ProcessID,temp:cardinal;
  buf: Pointer;
begin
  HandleWindow :=FindWindow('지뢰 찾기',Nil);
  if HandleWindow = 0 then begin
  Showmessage('not found')
  ;Exit;
  end;
  GetWindowThreadProcessId(HandleWindow,@ProcessID);
  hProcess := OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
  Getmem(buf,4);
  readprocessmemory(hProcess,ptr($01003E21),buf,4, temp);
  showmessage(String(buf));
  freemem(buf);
    CloseHandle(hProcess);
end;
end.

이렇게 하면 되긴 됩니다.
그런데 메시지박스에서 제가 원하는건 4바이트로 값을 띄우는건데 (1,2,3) 이런 숫자들
그런데 이상한 문자들이 뜹니다 . ?$%@! 이런식으로요.
왜 이런건가여.?