Считывание из оперативной памяти

[niki2012]

Необходимо считать код другой программы из оперативной памяти (например по идентификатору процесса)

[veniside]

ReadProcessMemory()

[Don Karleone]

Сообщение от veniside

ReadProcessMemory()

а по подробнее можете объяснить

[veniside]

ну типа такого (TlHelp32 добавляем в uses).

// --  --
procedure Tc_form_main.Button1Click(Sender: TObject);
var
  shot: tHandle;
  procEntryW: PROCESSENTRY32W;
  ok: bool;
  h: tHandle;
  buf: array[byte] of byte;
  sz: unsigned;
begin
  shot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (0 <> shot) then begin
    //
    procEntryW.dwSize := sizeOf(procEntryW);
    try
      ok := Process32FirstW(shot, procEntryW);
      while (ok) do begin
	//
	if (1 <= pos('explorer.exe', lowerCase(procEntryW.szExeFile))) then begin
	  //
	  h := OpenProcess(PROCESS_VM_READ, false, procEntryW.th32ProcessID);
	  if (0 <> h) then begin
            //
	    ReadProcessMemory(h, pointer($410000), @buf, sizeof(buf), sz);
            break;
          end; 
	end;
	//
	ok := Process32NextW(shot, procEntryW);
      end;
      //
    finally
      CloseHandle(shot);
    end;
  end;
end;

[niki2012]

Что за тип unsigned у переменной sz? Такого типа вроде нет...

[veniside]

Cardinal, LongWord для 32 битной среды, UInt64 для 64 битной

[niki2012]

Не совсем понял как это работает... Куда записывается результат?

[veniside]

в локальный массив байт buf. Т.к. это просто пример, то результат никуда не передаётся. В реальной программе работа с массивом будет продолжена.