Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Вниз

ReadProcessMemory, Float.   Найти похожие ветки 

← →
Cj ©   (2007-06-21 03:59) [0]

Помогите найти ошибку в моей процедуре, вот она:


function GetFloatValue(PID,Addres,ByteType:cardinal):extended;
var
PH:cardinal;
rw:cardinal;
val4b:single;
val6b:real;
val8b:double;
val10b:extended;
begin
PH:=openprocess(PROCESS_ALL_ACCESS,false,PID);
case bytetype of
4:begin
      readprocessmemory(PH,ptr(Addres),@val4b,4,rw);
      result:=val4b;
 end;
6:begin
      readprocessmemory(PH,ptr(Addres),@val6b,6,rw);
      result:=val6b;
 end;
8:begin
      readprocessmemory(PH,ptr(Addres),@val8b,8,rw);
      result:=val8b;
 end;
10:begin
      readprocessmemory(PH,ptr(Addres),@val10b,10,rw);
      result:=val10b;
 end;
 else result:=0;
end;
closehandle(PH);
end;

Почему она правильно читает 4-байтные с точкой(через ArtMoney смотрел), а остальные не хочет? Помогите разобраться.

---

← →
Сергей М. ©   (2007-06-21 08:10) [1]

> остальные не хочет


Неужто прямо так и говорит - "не хочу" ?!

---

← →
Dimaxx ©   (2007-06-21 10:11) [2]

Попробуй sizeof(), а не конкретное число байт для чтения...

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.071 c