ReadProcessMemory -> Problem

[Xerogon]

Hi, ich hoffe ich bin hier in der richtigen Sektion
Also mein Problem ist, das ich bei Verwendung von ReadProcessMemory eine Exception bekomme.

Delphi-Quellcode:

var
  ThreadID, ProcessID: Integer;
  WindowHWnd: HWnd;
  write: Cardinal;
  WindowHandle: THandle;
  P: PChar; //Variable für ReadProcessMemory

...

Procedure OpenMemory;
begin
  While WindowHWnd = 0 do
  begin
    WindowHWnd := FindWindow(nil, 'Spider Solitär'); //FensterHandle suchen
    sleep(100);
  end;

  ThreadID := GetWindowThreadProcessID(WindowHWnd, @ProcessID);      //processID bestimmen
  WindowHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID); //WindowHandle suchen
  Writeln('ThreadID: ' + IntToStr(ThreadID) + '  /  ' + 'ProcessID: ' + IntToStr(ProcessID) + '  /  ' + 'WindowHandle: ' + IntToStr(WindowHandle)); //sollte klar sein ;)
end;

Function ReadMemory: PChar;
begin
try
  //Speicher reservieren
  GetMem(p, SizeOf(P));
  //Speicher auslesen --> Error
  ReadProcessMemory(WindowHandle, Ptr($01324480), @P, SizeOf(P), write); //Aus gelesener Wert befindet sich nun in P, oder?
  Result := P;
  //Speicher freigeben + Handle schließen
finally
  FreeMem(P);
  CloseHandle(WindowHandle);
end;

begin
  OpenMemory;
  Writeln(ReadMemory); //--> geht nicht
  Readln;
end.

so, also bei der Funktion "Readmemory" stürzt er ab. Warum?
Mit WriteProcessMemory kann ich ohne Probleme arbeiten.

Danke

[himitsu]

Zitat von Xerogon:

Also mein Problem ist, das ich bei Verwendung von ReadProcessMemory eine Exception bekomme.

Und die allseits beliebte Frage "Welche Exception, bzw. welche Meldung wird denn angezeigt?"


Sicher daß $01324480 stimmt?
(Speicheradressen sind selten statisch)

Zitat:

Aus gelesener Wert befindet sich nun in P, oder?

Joar, eventuell.
Ob was ausgelesen wurde erfährt man über das Result von ReadProcessMemory und wenn, dann das Wieviel über deine "write"-Variable.
Und falls nichts ausgelesen wurde, dann bekommt man über GetLastError den Grund dafür.
(daß auch ständig Leute das Result in die Fehlerbehandlung (GetLastError) bei den WinAPIs vergessen)

Aber SizeOf(P) ließt nur genau 4 Byte und nicht einen ganzen Text.
Und wenn nun innerhalb dieser 4 Byte kein #0, als Ende-Markierung vorkommt, dann geht der Zugriff als PChar schief, da das auslesen so lange ließt, bis es eine #0 findet und wenn dieses fehlt, dann knallt's.

[Xerogon]

Kann ich nicht lesen. Die Konsole geht zu schnell zu.

Zitat:

Ja klar,
du ließt irgendeinen Wert (eventuell eine Adresse, aber jedenfalls keinen "Text") aus dem Speicher einer fremden Anwendung.
(Speicheradressen sind nur innerhalb der Anwendung gültig, von wo sie kommen)
Und willst dann über diese Adresse im Adressraum deiner Anwendung als PChar auf (eventuell nicht existierenden) Speicher deiner Anwendung zugreifen.

Ja, aber als Übergabewert wird ja ein Pointer verlangt.

Wie sähe denn die Zeile richtig aus, oder welchen Datentyp sollte ich dafür nehmen?

Edit: Danke, es klappt. Habe nun Integer statt PChar verwendet

[himitsu]

Zitat von Xerogon:

Kann ich nicht lesen. Die Konsole geht zu schnell zu.

Debuggen?

Kennst du schon die F7-Taste und seine Freunde?

[Luckie]

Füge am Ende des Programm ein Readln ein. Dann musst du mit einem Tastendruck die Konsole schließen. Oder starte das Programm aus der Konsole.

Und es wird ein Zeiger auf einen Speicherbereich erwartet,m der natürlich groß genug sein muss.

[Sir Rufo]

Zitat von Luckie:

Füge am Ende des Programm ein Readln ein. Dann musst du mit einem Tastendruck die Konsole schließen. Oder starte das Programm aus der Konsole.

Und es wird ein Zeiger auf einen Speicherbereich erwartet,m der natürlich groß genug sein muss.

Das ReadLn hat er ja am Ende schon drin, bringt aber nix, wenn das Prog vorher abkackt
Sonst einfach mal ein try..except Block der die exception ausgibt

[himitsu]

Das haben die "neueren" Projektvorlagen zwar schon drin
und ein bissl abgewandelt, isses auch nutzbar.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  try
    { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
  except
    on E: Exception do
    begin
      WriteLn(E.ClassName, ': ', E.Message);
      ReadLn;
    end;
  end;
end.

Aund ansonsten kann dir keiner sagen wie das nun richtig ausgelesen wird,
da wir noch nicht erfahren haben, was genau dort ausgelesen werden soll, bzw. in welchem Format diese Daten vorliegen.

[Luckie]

Seit wann werfen API-Funktionen Exceptions?

[Sir Rufo]

Wenn keine Exception geworfen wird, warum wird dann sein ReadLn am Ende nicht ausgeführt?

[Xerogon]

Es klappt nun.
Ich habe einfach PChar mit integer ausgetauscht.

Quellcode, der jetzt geht:

Delphi-Quellcode:

program Tut;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

var
  ThreadID, ProcessID: Integer;
  WindowHWnd: HWnd;
  write: Cardinal;
  WindowHandle: THandle;
  P: Integer; //Variable für ReadProcessMemory

Procedure OpenMemory;
begin
  While WindowHWnd = 0 do
  begin
    WindowHWnd := FindWindow(nil, 'Spider Solitär');
    sleep(100);
  end;

  ThreadID := GetWindowThreadProcessID(WindowHWnd, @ProcessID);
  WindowHandle := OpenProcess(PROCESS_ALL_ACCESS, false, ProcessID);
  Writeln('ThreadID: ' + IntToStr(ThreadID) + ' / ' + 'ProcessID: ' + IntToStr(ProcessID) + ' / ' + 'WindowHandle: ' + IntToStr(WindowHandle));
end;

Function ReadMemory: Integer;
var New: Integer;
begin
try

  ReadProcessMemory(WindowHandle, Ptr($04D4480), @P, SizeOf(P), write);
  New := P+$10;
  ReadProcessMemory(WindowHandle, Ptr(New), @P, SizeOf(P), write);
  New := P+$8c;
  ReadProcessMemory(WindowHandle, Ptr(New), @P, SizeOf(P), write);

  Result := P;

finally
  CloseHandle(WindowHandle);
end;
end;

begin
  OpenMemory;
  Writeln(ReadMemory);
  Readln;
end.