procedure TForm1.Button1Click(Sender: TObject);
var
had:thandle;
c:cardinal;
buf:pchar;
begin
memo1.Lines.Clear;
GetMem(Buf,1024);
had:=openprocess(process_all_access,false,getcurrentprocessid);
if readprocessmemory(had,Pointer($0014A218),buf,1024,c) then
memo1.Lines.add('记录1:'+buf);
if readprocessmemory(had,Pointer($0014A250),buf,1024,c) then
memo1.Lines.add('记录2:'+buf);
end;
查找字符串地址工具:
http://www.cnitblog.com/Files/shuyezi122/MemEdit.rar
posted on 2008-11-11 14:19
小叶子 阅读(529)
评论(0) 编辑 收藏 引用 所属分类:
delphi与电脑知识