Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > WriteProcessMemory

Автор: L0GA4 31.12.2005, 21:15

Здравствуйте. Возникла небольшая (надеюсь) проблема с записью памяти :

Код


unit Unit1;

interface

uses
  Windows,
  Classes,
  Controls,
  Forms,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  p:pointer;
  s:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:='Hello world';
p:=@s;
Edit1.text:=string(p^);

end;

end.

Понятно , что при нажатии кнопки в эдите появится "Hello world". Так вот этот текст находится в памяти у меня по адресу $004524A8

Можно ли , как-нибудь изменить эту надпись сторонней программой? Т.е запускаем эту, потом запускаем другую, которая должна перезаписать код в памяти...

пытался так :

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  windows;
var
  MyPid,d,buffer: dword;
  wnd,mes: HWND;
  iFile,lppointer,t: Cardinal;
  p_begin, p_end: pointer;
  dp, wb: dword;

begin
buffer:=10;
lppointer:=$010056D4;
wnd:= FindWindow(nil,'mem');
MyPid:=GetWindowThreadProcessId(wnd,@d);
  iFile := OpenProcess(PROCESS_VM_WRITE,false,MyPid);
  WriteFile(iFile, p_begin^, dp, wb, nil);
  WriteProcessMemory(iFile,@lppointer,@buffer,$01,t);
  MessageBox(wnd,'21','123',MB_OK);
  CloseHandle(iFile);
end.

Знаю )) понамудрил....но все же ...хм не пойму как с этой функцией обращатся (
Помогите найти выход для замены этого "Hello world"

Автор: L0GA4 1.1.2006, 16:54

Такс : 3й параметр -
lpBuffer
[in] Pointer to the buffer that contains data to be written into the address space of the specified process.
(рус)Указатель на буффер , содержащий значение , которое должно быть записано по адресу определенного процесса

у меня
@buffer только непонимаю , это значит значение на которое мне нужно заменить...уже должно быть в памяти?

Автор: L0GA4 1.1.2006, 21:20

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  windows;
const
 addr_mem = $004524F4;
var
  d:integer;
  MyPid: dword;
  wnd: HWND;
  iFile,rw: Cardinal;
  wVar: single;
  NumberOfBytes:byte;
begin
NumberOfBytes :=4;
wVar := 10000;
wnd:= FindWindow(nil,'mem');
GetWindowThreadProcessId(wnd,@d);
  iFile := OpenProcess(PROCESS_ALL_ACCESS,false,d);
 if ( WriteProcessMemory(iFile,Pointer(addr_mem),@wVar,NumberOfBytes,rw)) then
  begin
  MessageBox(0,'21','123',MB_OK);
  end;
  CloseHandle(iFile);
end.

Во , терь запись идет , но коряво......
Вместо Hello World" - "'llo World"

Автор: L0GA4 2.1.2006, 01:39

спасибо мне )
я разобрался ;)