[Помогите!] [Delphi] Взять адрес с переменной

[RamDigga]

Есть код :

Цитата: var Form1: TForm1; WindowName: integer; ProcessId: integer; ThreadId: integer; HandleWindow: Integer; write: cardinal; buf: dword; const WindowTitle = 'Косынка'; Address = $83C4BF64; NumberOfBytes = 4; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin buf:=$01; WriteProcessMemory(HandleWindow, ptr(address), @buf, 1, write); end;

В нём уже готовый адрес, а я хочу сделать что бы адрес брался с переменной ( Address = peremennaya; ) или же из эдита ( Address = edit1.text; )
Но при таком раскладе компилятор ругается. Как это можно исправить ?)

[Тигрь]

Купить книжку по делфи и читать.

[slava-zis]

о боже этот день свершился, я вижу Delphi, Delphi, Delphi и это в разделе пб, быть того не может... может завтра мир перевернется...

по теме: я хоть делфи и не изучал, но юзать так WriteProcessMemory нельзя и вроде как драйвер фроста помешает тебе реализовать грандиозные планы

[BLACK_DEAD]

Цитата: Сообщение от slava-zis о боже этот день свершился, я вижу Delphi, Delphi, Delphi и это в разделе пб, быть того не может... может завтра мир перевернется...

я уже давно пробовал создать трейнер на дельфи.

[крайслер]

Цитата: Сообщение от BLACK_DEAD я уже давно пробовал создать трейнер на дельфи.

а что пробывать? Исходники есть, минуалы тоже.....

[slava-zis]

Цитата: Сообщение от BLACK_DEAD я уже давно пробовал создать трейнер на дельфи.

я к тому что тут таких единицы

[RamDigga]

Цитата: Сообщение от Тигрь Купить книжку по делфи и читать.

Большое спасибо, что бы я без тебя делал. Сами боги послали тебя для того что бы я смог преодолеть это жизненное препятствие ><

[Тигрь]

Цитата: Сообщение от RamDigga Большое спасибо, что бы я без тебя делал. Сами боги послали тебя для того что бы я смог преодолеть это жизненное препятствие ><

Ты спрашиваешь элементарные вещи, как работать со стандартным компонентом TEdit тебе не будет никто объяснять, это то же самое что объяснять сколько будет 2 + 2 показывая на пальцах.
+ у тебя не правильно используется врайтмемори. Что бы его юзать нужно сначала открыть процесс, но и опять же фрост не даст тебе открыть процесс. И да если бы ты был сообразительней то ткнул бы у меня в подписи в ссылку, там есть ссыль на написанную мной статью по разработке читов, в статье прилагаются исходники на делфи и сибилдере.

[RamDigga]

Цитата: Сообщение от Тигрь Ты спрашиваешь элементарные вещи, как работать со стандартным компонентом TEdit тебе не будет никто объяснять, это то же самое что объяснять сколько будет 2 + 2 показывая на пальцах. + у тебя не правильно используется врайтмемори. Что бы его юзать нужно сначала открыть процесс, но и опять же фрост не даст тебе открыть процесс. И да если бы ты был сообразительней то ткнул бы у меня в подписи в ссылку, там есть ссыль на написанную мной статью по разработке читов, в статье прилагаются исходники на делфи и сибилдере.

Про не правильное использование врайтмемори трейнеру моему расскажи : [Ссылки могут видеть только зарегистрированные пользователи. ]
Развелось умников...

[V11RUS]

Цитата: Сообщение от RamDigga Про не правильное использование врайтмемори трейнеру моему расскажи : [Ссылки могут видеть только зарегистрированные пользователи. ] Развелось умников...

Музыку из видео подскажешь?

[RamDigga]

Цитата: Сообщение от V11RUS Музыку из видео подскажешь?

GonFireMusic – lot of money (DEMO) ::: NEW!SOLD

[slava-zis]

Цитата: Сообщение от RamDigga Про не правильное использование врайтмемори трейнеру моему расскажи

а его исходный код в шапке? или это ты понял как в действительности работает эта функция?

[V11RUS]

Цитата: Сообщение от V11RUS Музыку из видео подскажешь?

Цитата: Сообщение от RamDigga GonFireMusic – lot of money (DEMO) ::: NEW!SOLD

Спасибо

[RamDigga]

Цитата: Сообщение от slava-zis а его исходный код в шапке? или это ты понял как в действительности работает эта функция?

В шапке, но не весь, ибо я же не просил сканить мой код на наличие ошибок, а на жуке как я понял любят сьезжать на другие темы и не много поучить )
Просил одно, получил другое )

В создании формы :

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

[diniska]

Цитата: Сообщение от RamDigga В шапке, но не весь, ибо я же не просил сканить мой код на наличие ошибок, а на жуке как я понял любят сьезжать на другие темы и не много поучить ) Просил одно, получил другое ) В создании формы : WindowName := FindWindow(nil,WindowTitle); ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId); HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);

Цитата: 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);

Как по мне будет лутше ))

или

Цитата: if WindowsName = 0 then begin ShowMessage ('Игра не была найдена'); Trainer.Close; end else begin ShowMessage ('Игра Найдена'); end; end;

Добавлено через 4 минуты

Цитата: Сообщение от RamDigga Есть код : В нём уже готовый адрес, а я хочу сделать что бы адрес брался с переменной ( Address = peremennaya; ) или же из эдита ( Address = edit1.text; ) Но при таком раскладе компилятор ругается. Как это можно исправить ?)

Что тебе мешает перевести Integer в String ??

Добавлено через 7 минут

Цитата: Сообщение от RamDigga Про не правильное использование врайтмемори трейнеру моему расскажи : [Ссылки могут видеть только зарегистрированные пользователи. ] Развелось умников...

В смисле не правильное ?
Мля как я помню адреса Weapon Control статическим (постоянным, неизменяемым),
дак запилить трейнер раз плюнуть ...
а вот когда адреса статичны вот тогда и наступает анархия ))
Хотя если знаеш хорошо Win Api не составит труда написать сканер ....