=============================================================
今日我使用ReadProcessMemory去讀取一些位址的記憶體~
當數值小時...還可以正常讀取...可是一但數值過大...則無法正確讀許記憶體?
請教一下?我是聽說因為我的source只配置1byte...所以最大值只有255
=============================================================
[code delphi]
procedure TMainForm.NimoTimer(Sender: TObject);
var
AProcessID: DWORD;
WHP:DWord;
WMaxHP:DWord;
WMP:DWord;
WMaxMP:DWord;
WEXP:DWord;
WMaxExP:DWord;
WRed:DWord;
Hpbyte:Byte;
MaxHpbyte:Byte;
Mpbyte:Byte;
MaxMpbyte:Byte;
Expbyte:Byte;
MaxExpbyte:Byte;
Redbyte:Byte;
NimoHandle,NimoWinHWN:THandle;
Por: integer;
begin
NimoWinHwn:=FindWindowA(nil,'You can''t see me~');
GetWindowThreadProcessId(NimoWinHwn, @AProcessID);//取得記憶體進程id
NimoHandle:=openprocess(PROCESS_VM_READ,false,AProcessID);//要求打開拜訪行程
if NimoHandle > 0 then begin
msload.Caption:='載入成功';
ReadProcessMemory(NimoHandle,Pointer($00100000),@HpByte,1,WHP);
ReadProcessMemory(NimoHandle,Pointer($00100004),@MaxHpByte,1,WMaxHp);
ReadProcessMemory(NimoHandle,Pointer($00100008),@MpByte,1,WMP);
ReadProcessMemory(NimoHandle,Pointer($0010000c),@MaxMpByte,1,WMaxMp);
ReadProcessMemory(NimoHandle,Pointer($00100010),@ExpByte,1,WExp);
ReadProcessMemory(NimoHandle,Pointer($00100014),@MaxExpByte,1,WMaxExp);
ReadProcessMemory(NimoHandle,Pointer($00100018),@RedByte,1,WRed);
HPLabel.Caption:='生命值： ' InttoStr(HpByte) ' / ' InttoStr(maxHpByte);
MPLabel.Caption:='魔力值： ' InttoStr(MpByte) ' / ' InttoStr(maxMpByte);
ExPLabel.Caption:='經驗值： ' InttoStr(ExpByte) ' / ' InttoStr(maxExpByte);
RedLabel.Caption:='地圖紅點： ' InttoStr(RedByte);
end;[/code]

=======================================================================================
問題解決了~原來是我宣告錯了

[code delphi]
procedure TMainForm.NimoTimer(Sender: TObject);
var
AProcessID: DWORD;
WHP: DWord;
WMaxHP: DWord;
WMP: DWord;
WMaxMP: DWord;
WEXP: DWord;
WMaxExP: DWord;
WRed: DWord;
NTag: DWord;
NimoHandle,NimoWinHWN: THandle;
Por: integer;
begin
NimoWinHwn:=FindWindowA(nil,'123456');
GetWindowThreadProcessId(NimoWinHwn, @AProcessID);//取得記憶體進程id
NimoHandle:=openprocess(PROCESS_VM_READ,false,AProcessID);//要求打開拜訪行程
if NimoHandle > 0 then begin
msload.Caption:='載入成功';
ReadProcessMemory(NimoHandle,Pointer($00100000),@WHP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($00100004),@WMaxHP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($00100008),@WMP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($0010000c),@WMaxMP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($00100010),@WEXP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($00100014),@WMaxEXP,4,NTag);
ReadProcessMemory(NimoHandle,Pointer($00100018),@WRed,4,NTag);
HPLabel.Caption:='生命值： ' InttoStr(WHP) ' / ' InttoStr(WMaxHP);
MPLabel.Caption:='魔力值： ' InttoStr(WMP) ' / ' InttoStr(WMaxMP);
ExPLabel.Caption:='經驗值： ' InttoStr(WEXP) ' / ' InttoStr(WMaxEXP);
RedLabel.Caption:='地圖紅點： ' InttoStr(WRed);
end;
end;[/code]