[Помогите!] readwrite

[RamDigga]

Нашёл книжку GHBook.
Решил затестить код трейнера на делфи.
Вот собственно код :

Цитата: var Form1: TForm1; WindowName : integer; ProcessId : integer; ThreadId : integer; HandleWindow : Integer; b: dword; readwrite:cardinal; buf : dword; Const WindowTitle = 'SimCity 4'; Address = $B321E4; NumberOfBytes = 4; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin WindowName := FindWindow(nil,WindowTitle); If WindowName = 0 then begin MessageDlg('Игра должна быть запущена до трейнера. Запустите ее, потом трейнер', mtwarning,[mbOK],0); end; ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); ReadProcessMemory(HandleWindow,ptr(address),@b,4,r eadwrite); b:=b+40; buf:=$FFFFFFFF; WriteProcessMemory(HandleWindow, ptr(b), @buf, 4, readwrite); end;

Компилятор кричит на строчки :

Цитата: ReadProcessMemory(HandleWindow,ptr(address),@b,4,r eadwrite);

и

Цитата: WriteProcessMemory(HandleWindow, ptr(b), @buf, 4, readwrite);

Сама ошибка :

Цитата: [DCC Error] Unit1.pas(51): E2033 Types of actual and formal var parameters must be identical

Каким образом её можно исправить ?

[Dinmaite]

Неверно указали типы переменных

var
HandleWindow, readwrite: DWord;

[RamDigga]

Цитата: Сообщение от Dinmaite Неверно указали типы переменных var HandleWindow, readwrite: DWord;

Все равно эта же ошибка

[Dinmaite]

Ошибся. В последних версиях Делфи

readwrite:SIZE_T;


для справки:

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

[RamDigga]

Цитата: Сообщение от Dinmaite Ошибся. В последних версиях Делфи readwrite:SIZE_T; для справки: function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;

Ещё вопрос)
Каким образом мне записать моё смещение, если оно 26с?
Просто на (с) компилятор ругается)

[Dinmaite]

b:=$26c;

[RamDigga]

Как можно сделать что бы адрес считывался с переменной или же с эдита ?
На это компилятор ругается :

Цитата: Address = Edit1.Text; Address = peremennaya;

[VeTaL_UA]

Цитата: Сообщение от RamDigga Как можно сделать что бы адрес считывался с переменной или же с эдита ?

Свойство Text компонента TEdit имеет тип string. DWord - это целочисленный без знаковый тип данных. Можешь попробовать StrToInt ну или же Val паскалевский.

[RamDigga]

Цитата: Сообщение от VeTaL_UA Свойство Text компонента TEdit имеет тип string. DWord - это целочисленный без знаковый тип данных. Можешь попробовать StrToInt ну или же Val паскалевский.

Не выходит...

[VeTaL_UA]

Цитата: Сообщение от RamDigga Не выходит...

Весьма странно.

var d:DWord; s:string;
begin
s:='12345';
d:=StrToInt(s);
end;

[RamDigga]

Цитата: Сообщение от VeTaL_UA Весьма странно. var d:DWord; s:string; begin s:='12345'; d:=StrToInt(s); end;

Так то всё норм, а ты попробуй с кодом в 1-ом посте. Там компилятор кричит )

Добавлено через 14 минут
Вроде бы разобрался ) Спасибо )