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

[Тигрь]

Цитата: Сообщение от diniska Что тебе мешает перевести Integer в String ??

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

[revi994]

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

В книжке не напишут, как написать тренер для pb
Не стоит так кидаться, человек пытается хоть что-то сделать, да он не сильно что-то понимает, но это только начало, возможно, он еще нас чему-то научит. Если человеку указать, что он сделал не верно и направить в правильное русло, он быстро добьется своего.

[Тигрь]

Цитата: Сообщение от revi994 В книжке не напишут, как написать тренер для pb Не стоит так кидаться, человек пытается хоть что-то сделать, да он не сильно что-то понимает, но это только начало, возможно, он еще нас чему-то научит. Если человеку указать, что он сделал не верно и направить в правильное русло, он быстро добьется своего.

Зато в книжке написано как переменной присвоить значение из Edit'a, что собственно он и спрашивает.

[BLACK_DEAD]

Цитата: Сообщение от revi994 В книжке не напишут, как написать тренер для pb

Это вообще преследуется по закону, в книге все элементы описаны и как их лучше применять.

[slava-zis]

Цитата: Сообщение от BLACK_DEAD Это вообще преследуется по закону

как показывает практика - нет

[diniska]

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

Можно Так

Цитата: procedure TForm1.Button1Click(Sender: TObject); var a,b : Integer; begin a:= $83C4BF64; buf:=$01; WriteProcessMemory(HandleWindow, ptr(address), @buf, 1, write); end;

Или Так

Цитата: procedure TForm1.Button1Click(Sender: TObject); begin buf:=$01; WriteProcessMemory(HandleWindow, ptr($83C4BF64), @buf, 1, write); end;