ReadProcessMemory [D5, Win95/98]
Alv © (2002-09-15 17:08:00)
Кто-нибудь умеет пользоваться САБЖОМ???
Научите, у меня не получается..............
Юрий Зотов (2002-09-15 22:04:00) [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;
Наверх 
ЧАТ |
Орешник |
|
