ReadProcessMemory

← →
Alv (2002-09-15 17:08) [0]

Кто-нибудь умеет пользоваться САБЖОМ???
Научите, у меня не получается..............

← →
Юрий Зотов (2002-09-15 22:04) [1]

Что конкретно не получается? Из какого процесса нужно читать - своего или чужого? И т.д.

Вот простейший пример - тело строковой константы переносится в Caption через промежуточный буфер.

procedure TForm1.FormCreate(Sender: TObject);
const
HelloWorld = "Hello, world!";
var
BuffSize, Count: cardinal;
Buff: pointer;
begin
BuffSize := Length(HelloWorld) + 1;
GetMem(Buff, BuffSize);
try
ReadProcessMemory(GetCurrentProcess, @HelloWorld[1], Buff, BuffSize, Count);
Win32Check(Count = BuffSize);
Caption := String(PChar(Buff))
finally
FreeMem(Buff, BuffSize)
end
end;

ReadProcessMemory Найти похожие ветки