Code:
Function MemoryRead(Adresse: DWord): PChar;
var
ThreadID, ProcessID: Integer;
WindowHandle: THandle;
Windowtitel: HWnd;
buffer: PChar;
Bytes: DWord;
begin
WindowTitel := FindWindow(nil, Application);
if WindowTitel = 0 then
Exit;
ThreadID := GetWindowThreadProcessID(WindowTitel, @ProcessID);
WindowHandle := Openprocess(PROCESS_ALL_ACCESS, False, ProcessID);
GetMem(Buffer, 64); //64 Byte sichern
ReadProcessMemory(WindowHandle, Ptr(Adresse), @Buffer, 4, Bytes);
Result := Buffer;
FreeMem(Buffer);
CloseHandle(WindowHandle);
end;
Übrigens war sein Problem nicht unbegründet weswegen ihr nicht auf ihm rum hacken dürft.
Die Lösung war simpel, aber nicht logisch.
