Ok der Alrotihmus müste nun funktionieren mir ist klar warum so ein Salat ruaskam.
Aber die Geschwindigkeit läst sehr zu wünschen übrig -.-
Code:
for x:=100 to high(Address) do
begin
StatusBar1.Panels[0].Text:='Offset: '+IntToHex(Address[x].Offset,8);
StatusBar1.Panels[1].Text:='Scanning '+IntToStr(x)+' from '+IntToStr(high(Address))+' Offsets ';
Application.ProcessMessages;
Count:=Address[x].Offset;
z:=100 - ((Address[x].Offset+Address[x].Size) mod 100);
while Count<=(Address[x].Offset+Address[x].Size) do
begin
ReadProcessMemory(RSDHwnd,Pointer(Count),@Buffer,100,rread);
Content:=content+IntToString(Buffer);
Inc(Count,100);
end;
delete(content,length(Content)-z,z);
end;
Wie könnte man das schneller bekommen?