4 byte değer 1 byte işleniyor

[MatarTR]

Arkadaşlar value değeri atıyorum 4 byte olarak işlemesi gerekirken 1 byte olarak atıyor mesela 900 yazıyorum 19 işliyor kodum şöyle;

Kod: Tümünü seç

const
WindowTitle = 'counter-strike';
Address = $019E5F1C;
Value = 16000;
NumberOfBytes = 4;

WindowName: Integer;
ProcessId: Integer;
ThreadId: Integer;
buf: PChar;
HandleWindow: Integer;
Write: Cardinal;
procedure TForm1.Button1Click(Sender: TObject);
begin
WindowName := FindWindow(nil, WindowTitle); 
ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId); 
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
GetMem(buf, 4);
buf^ := Chr(value);
WriteProcessMemory(HandleWindow, ptr(Address), buf, NumberOfBytes, Write);
FreeMem(buf); 
CloseHandle(HandleWindow); 

[MatarTR]

Amacım hile yapmak kar sağlamak değil sadece öğrenmek için yapıyorum uyguladığım oyun counter 1.6 ve parayı değiştirmeye çalışıyorum normalde menüden değişebiliyor. Bu kodda 16000 yazmışım 258 işliyor .

[mrmarman]

dword tipini kullan. 4 byte uzunluğundadır. 32 bit unsigned tiptir.

[MatarTR]

Hocam kusura bakma yapamadım google den tarattım bulamadım da böyle yaptım olmadı

Kod: Tümünü seç

var
  Form1: TForm1;
WindowName: DWORD;
ProcessId: DWORD;
ThreadId: DWORD;
buf: PChar;
HandleWindow: DWORD;
Write: DWORD;

[MatarTR]

Teşekkürler hallettim buf^ := Chr(value); ile buf: PChar; satırındaki "char" ları WideChar olarak değiştirdim.