[Помогите!] Вопрос по Делфи.

[Lermontov]

ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;


Прошу объяснить эту функцию, подробно. Знаю для чего, но подробно понять не могу. Либо дайте ссылку на описание, либо посоветуйте учебник по WinApi. Все переискал нигде найти не могу.

[BritishColonist]

Цитата: Сообщение от Lermontov ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;

hProcess: THandle - это хендл процесса, предварительно открытый с помощью функции OpenProcess.
lpBaseAddress: Pointer - это адрес памяти, из которого нужно читать данные, а точнее указатель, который равен этому адресу. Но чтобы не морочить голову, держите в уме, что это просто адрес, который надо привести к типу указателя (делается это вот так: ptr(Address) - именно так выглядит типичный второй параметр данной функции).
lpBuffer: Pointer - это указатель на место, в которое нужно положить результат (это адрес переменной, массива и т.д.). Пишут так: @result - так выглядит третий параметр.
nSize: DWORD - это размер, кол-во байтов, нужных для считывания из указателя lpBaseAddress и помещения в lpBuffer. Передают 1, 2 или 4 байта, если типы byte, word и dword соответственно.
lpNumberOfBytesRead: DWORD - переменная, в которую запишется количество считанных байтов. Эта переменная может служить для проверки (если кол-во байтов в ней не равно nSize, то функция завершилась неудачно).

Вот примерчик:

var
 Result, br: DWORD;
 hProc: THandle;
..
begin
..
ReadProcessMemory(hProc, ptr($B27A04), @Result, 4, br);
..
end;

в Result будет содержаться значение, хранящееся в процессе hProc по адресу $B27A04, при этом br будет содержать кол-во считанных байтов (и должно быть равно 4 в случае удачного считывания).

[Lermontov]

Требуется помощь!

http://zhyk.ru/forum/showthread.php?t=331413
Хочу сделать, что бы, допустим, значение ХП показывалось в Edit, но Delphi жалуется, что несовместимые типы переменных. Я так понял, что Edit не может показать переменные типа integer (или любые числовые переменные).

[Shadrincev]

Цитата: IntToStr

Попробуй.

[Lermontov]

Цитата: Сообщение от Shadrincev Попробуй.

Пробовал.

[BritishColonist]

Lermontov, Edit1.Text := 'Health = '+IntToStr(dwHealth);
Либо так: Edit1.Text := Format('Health = %d',[dwHealth]);

[reca]

Цитата: Сообщение от Lermontov Требуется помощь! http://zhyk.ru/forum/showthread.php?t=331413 Хочу сделать, что бы, допустим, значение ХП показывалось в Edit, но Delphi жалуется, что несовместимые типы переменных. Я так понял, что Edit не может показать переменные типа integer (или любые числовые переменные).

не рано память читать?

[Lermontov]

Цитата: Сообщение от reca не рано память читать?

Мммм, в каком смысле?

[reca]

Перевести в другой формат если не получается

[BritishColonist]

reca, вопрос задан в ветке, предназначенной для этого. В чём проблема?

[=PaLeTiZaToR=]

Цитата: Сообщение от BritishColonist reca, вопрос задан в ветке, предназначенной для этого. В чём проблема?

Да , согласен , что эта ветка для ВОПРОСОВ , но память действительно помоему рановато читать , есле не получается перевести формат темболее из числа в строку

[Lermontov]

Цитата: Сообщение от =^PaLeTiZaToR^= Да , согласен , что эта ветка для ВОПРОСОВ , но память действительно помоему рановато читать , есле не получается перевести формат темболее из числа в строку

Всегда были проблемы с переводом переменной с одного типа в другой и массивы, это 2 темы которые я очень плохо знаю

Вот проблема, со чтением ника. При типе переменной - char , показывает первую букву ника, если же ставлю string( или любой другой: pchar и т.д.) Выбивает пустое поле либо ошибка.

[VeTaL_UA]

Lermontov, вот рабочая функция чтения Unicode строки из памяти:

function ReadPlayerName(hProcess,data:DWord): string;
var
i,rw:DWord;
ch:WideChar;
wch:array[0..255] of WideChar;
str:string;
begin
i:=0;
 repeat
 ReadProcessMemory(hProcess,ptr(data),@ch,2,rw);
 data:=data+2;
 wch[i]:=ch;
 inc(i);
 until
 (ord(ch)=0) or (i>=255);
i:=0;
str:='';
 repeat
 str:=str+wch[i];
 inc(i);
 until
 wch[i]='';
result:=str;
end;

Юзать так:

var
Wnd:THandle;
hProcess,PID:DWord;
const
BA=$00B27A04;
begin
Wnd:=FindWindow('ElementClient Window',nil);
GetWindowThreadProcessId(Wnd,@PID);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,PID);
 if hProcess<>0 then
  begin
   try
   ReadProcessMemory(hProcess,ptr(BA),@ibuf,sizeof(ibuf),BC);
   ReadProcessMemory(hProcess,ptr(ibuf+$1C),@ibuf,sizeof(ibuf),BC);
   ReadProcessMemory(hProcess,ptr(ibuf+$34),@ibuf,sizeof(ibuf),BC);
   ReadProcessMemory(hProcess,ptr(ibuf+$638),@buf,sizeof(buf),BC);
   ShowMessage(ReadPlayerName(hProcess,buf));
   finally
   CloseHandle(hProcess);
   end;
  end;
end;

[Lermontov]

Спасибо всем кто помог
Хочу научится вводить инжекты в игру, пытался по этой теме- http://zhyk.ru/forum/showthread.php?t=207760 , но для новичка там все написано непонятным языком, 1 этап понял, а вот второй и третий нет Прошу помощи!