ReadProcessMemory -> Problem

[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.

[Sir Rufo]

Es kommt eine Exception, aber anders als gedacht

Die Procedere gibt ein PChar zurück und genau der Speicher auf den der Rückgabewert zeigt wird noch in der Procedere selber freigegeben

Delphi-Quellcode:

Result := P;
{...}
FreeMem( P );

Das muss doch knallen

[himitsu]

Zitat von Luckie:

Seit wann werfen API-Funktionen Exceptions?

Das war nicht diese API, sondern eine Andere ... die hinter dem WriteLn, welche auf falschen Speicher zugreifen wollte.
[edit] Joar, und dann noch das FreeMem.

[Luckie]

Zitat von Luckie:

Seit wann werfen API-Funktionen Exceptions?

Weil der API-Aufruf zu eiber Access Violation fühert vermute ich mal.

[Sir Rufo]

Zitat von Luckie:

Zitat von Luckie:

Seit wann werfen API-Funktionen Exceptions?

Weil der API-Aufruf zu eiber Access Violation fühert vermute ich mal.

NEIN

Delphi-Quellcode:

Function ReadMemory: PChar;
begin
try
  
  GetMem(p, SizeOf(P));
  
  ReadProcessMemory(WindowHandle, Ptr($01324480), @P, SizeOf(P), write);

  // so result zeigt jetzt auf die gleiche Adresse wie P

  Result := P;

finally

  // Jetzt wird der Speicher an der Adresse P freigegeben
  // Wir erinnern uns, diese Adresse ist auch in Result gespeichert
  // Was können wir an dieser Adresse jetzt noch erwarten?
  // Richtig: Datenmüll

  FreeMem(P);
  CloseHandle(WindowHandle);
end;

begin
  OpenMemory;
  Writeln(ReadMemory); //--> geht nicht, logisch, weil unter Rückgabeadresse nix ist
  Readln;
end.