كيف يمكن كتابة قيمة ما إلى الذاكرة ؟

أعتقد أن لغة الأسمبلي تفي بالغرض (ليس لدي فكرة كافية عنها...)عليك الاطلاع عليها

السلام عليكم

فى لغة الاسمبلى يمكنك القيام بالاتى:

mov eax,[004370C8]

add eax,5

mov [004370C8],eax

والسلام

شكرا جزيلا لكم وأعتذر عن تأخري بالإجابة

لقد استطعت أن أصل إلى الكود المطلوب بعد عمليات البحث وهذا هو الكود :

var 
  WindowName: Integer; 
  ProcessId: Integer; 
  ThreadId: Integer; 
  buf: PChar; 
  HandleWindow: Integer; 
  Write: Cardinal; 
   
{....} 

const 
  WindowTitle = 'a program name'; 
  Address = $A662D6; 
  PokeValue = $4A; 
  NumberOfBytes = 2; 
   
{....} 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WindowName := FindWindow(nil, WindowTitle); 

  if WindowName = 0 then 
  begin 
    MessageDlg('Program not running.', mtWarning, [mbOK], 0); 
  end; 

  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;