Question

delphi写内存问题

我用CE搜索微软自带扫雷 雷数地址是00F68250
用WriteProcessMemory这么写内存 可以把雷数固定在1个！
就是怎么写整数内存

Answer 1

procedure WriteMem(cls,win:PChar;badr:Integer;v:Pointer;size:Integer);
var
n,pid,hprocess:Cardinal;
begin
GetWindowThreadProcessId(FindWindow(cls,win),pid);
hprocess:=OpenProcess(PROCESS_ALL_ACCESS,False,pid);
if hprocess<>0 then
begin
WriteProcessMemory(hprocess,Pointer(badr),v,size,n);
CloseHandle(hprocess);
end;
end;
procedure ReadMem(cls,win:PChar;badr:Integer;v:Pointer;size:Integer);
var
n,pid,hprocess:Cardinal;
begin
GetWindowThreadProcessId(FindWindow(cls,win),pid);
hprocess:=OpenProcess(PROCESS_ALL_ACCESS,False,pid);
if hprocess<>0 then
begin
ReadProcessMemory(hprocess,Pointer(badr),v,size,n);
CloseHandle(hprocess);
end;
end;
procedure TForm1.Button2Click(Sender:TObject);
var
i:Integer;
begin
ReadMem('扫雷',nil,$10052C4,@i,4);
mmo1.Lines.Add(IntToStr(i));
Dec(i,3);
WriteMem('扫雷',nil,$10052C4,@i,4);//设置雷数
// WriteMem('扫雷',nil,$1005A60,@i,4);//剩余雷数
mmo1.Lines.Add(IntToStr(i));
end;

Answer 2

没听过