Hallo zusammen,
ich habe ein "kleines" Problem mit ReadProcessMemory, Probleme dieser Art wurden hier schon öfters behandelt aber ich habe irgendwie nichts passendes gefunden.
Na ja, auf jeden Fall möchte ich aus einer fremden Anwendung Werte auslesen. Als Beispielprogramm soll hier einmal M$'s Solitär dienen. Mit dem "
Win32 Game Wizard" habe ich die Adresse gesucht, bei der der Punktestand gespeichert ist und tatsächlich auch gefunden (DWord-Wert bei Adresse $944B0). Es ist mir auch gelungen den Wert mit dem beim "
Win32 Game Wizard" mitgelieferten Delphi-Beispielprogramm zu ändern, das nutzt aber eine
DLL, was ich eigentlich vermeiden möchte. Wenn ich den Wert nun direkt über ReadProcessMemory auslesen möchte erhalte ich völlig unsinnige Werte.
Hat jemand eine Idee was ich falsch mache?
P.S. Ich bin absoluter Win-
API Newbie
Gruß Schneider-Huetter
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var handle : THandle;
p : pointer;
puffer :
array[0..1]
of DWord;
// puffer : array[0..3] of Byte;
BytesRead: DWord;
begin
p := ptr( $944B0 );
handle := FindWindow(
nil, '
Solitär');
ReadProcessMemory(
Handle, p , @puffer[0], 4, BytesRead );
// ReadProcessMemory( Handle, p , @puffer[0], 4, BytesRead );
Edit1.Text := IntToHex(
handle, 8 );
Edit2.Text := IntToStr(Puffer[3]);
Edit3.Text := IntToStr( BytesRead );
end;