verzweifle an fließkommazahlen....:-(

[himitsu]

Im Grunde nicht, aber du holst dir ja jedesmal nur 8 Byte ab.
Was dann diesem Code entsprechen täte :zwinker:

Delphi-Quellcode:

var buffer:double; 
... 

     a:=$FFFFFF; 
     repeat 
           ReadProcessMemory(HandleWindow, Ptr($a), @Buffer, SizeOf(buffer), BytesRead); 

           if d = buffer then 
           begin 
               //gefunden 
           end; 

           inc(a, 8); 
     until a = $FFFFFFF;

Versuch es mal damit:

Code:

[color=#ff0000]var buffer: packed Array[0..131071] of double;[/color] // 131072 * 8 = 1 MB
... 

     a:=$FFFFFF; 
     repeat 
           ReadProcessMemory(HandleWindow, Ptr($a), @Buffer, SizeOf(buffer), BytesRead); 
           i := FindData(PLargeWord(@d)^, @Buffer, BytesRead div 8); 

           if i > -1 then 
           begin 
               //gefunden 
           end; 

           inc(a, SizeOf(buffer)); 
     until a = $FFFFFFF;