Лидеры

[terminus]-------------------------------------------------------------------------------- gmz, строго говоря, ты действительно пишешь довольно, ммм, своеобразно. Попробуй не торопиться при письме, так как это - форум, а не чат, тут очень важно количество и качество подачи информации. Чем больше людей смогут комфортно ее воспринять, тем больше будет суммарная польза сообществу. --------------------------------------------------------------------------------[/terminus]

function readInteger(GHandle: THandle; Address: Pointer): Integer;var read: SIZE_T;begin ReadProcessMemory(GHandle, Pointer(Address), @Result, SizeOf(Result), read);end;procedure onTest;var value: integer; begin value := readInteger(Gamehandle, Pointer($FFFFFFFF)); ShowMessage(inttostr(value)); end;

procedure TForm1.Button4Click(Sender: TObject); var HP:THandle; wread:Cardinal; bb:LongInt; begin HP := OpenProcess(PROCESS_VM_READ,False,StrToInt(LabeledEdit1.Text) {PID}); LabeledEdit3.Text := IntToStr(HP);{Хэндл} ReadProcessMemory(HP,Ptr($21292BD8){найденный адрес},@bb,4,wread); Edit2.Text := IntToStr(bb); end;

Был урок кенга, где он там несколько раз вписывал инструкцию, но в этой игре такое не проходит. Пробовал. Кроме того ни один из представленых способов не действует. Вопрос все еще открыт. NullAlex если знаешь где обсуждалось и ответ уже есть, то кинь ссылку на тему пожалуйста.