ReadProcessMemory -> Problem

[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