WinApi работа с памятью, помогите!

[casper123]

Мне нужно написать программу, которая бы каждую милисекунду вносила в адресс 02E68994 - значение 10.99 (именно с точкой) , которое содержит 4 байта.

Я поставил на таймер вот такой код:

Var WindowName : integer;
ProcessId : integer;
ThreadId : integer;
buf : PChar;
HandleWindow : Integer;
write : cardinal;
Const WindowTitle = 'prog test';
Address = $02E68994;
PokeValue = $;
NumberOfBytes = 4;

begin

WindowName := FindWindow(nil,WindowTitle);
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

GetMem(buf,1);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
FreeMem(buf);
CloseHandle(HandleWindow);
end;

А вот какое значение присвоить PokeValue я не знаю .. Там по сути должно быть значение 10.99 в 16-ричной системе , а как оно будет там выглядеть не знаю.

Пожалуйста поправьте мой код и скажите что писать в PokeValue, чтобы этому адресу присваивалось значение 10.99?

[alexBlack]

$412FD70A;

но проще будет без промежуточных преобразований

var S:Single;
S := 10.99;
WriteProcessMemory(HandleWindow,ptr(Address),@S,sizeOf(Single),write);

[casper123]

Спасибо попробую и так и так, а можешь еще сказать как получил такое число?

[alexBlack]

type a = array [1..4] of byte;
var S:Single;
S := 10.99;

Точку прерывания и в окне Watch приведение переменной к массиву
a(S) - смотрим побайтно

[casper123]

Не работает Запустил даже артмани для проверки, оффсет сверил, значение остается как было 0.10 , а должно стать 10.99 .. Что может быть не так?

А вот с твоим примером без 16-ричной системы работает

А вот еще, есть еще 1 оффсет с определнным адресом с текстовым форматом, такой вопрос, я знаю, что есть ReadProcessMemory , но а как прочитать это текстовой значение непосредственно, а не набор байт? Заранее спасибо

[alexBlack]

Сообщение от casper123

Не работает Запустил даже артмани для проверки, оффсет сверил, значение остается как было 0.10 , а должно стать 10.99 .. Что может быть не так?

А вот с твоим примером без 16-ричной системы работает

buf^ := Chr(PokeValue); // явно не то, что Вы хотели

А вот еще, есть еще 1 оффсет с определнным адресом с текстовым форматом, такой вопрос, я знаю, что есть ReadProcessMemory , но а как прочитать это текстовой значение непосредственно, а не набор байт? Заранее спасибо

Смотря в каком формате.
В общем-то строка и есть набор байт. Читайте в Array of char, потом просто присвоение в строку