var
handle: HWND;
process, handleprocess, bytes: Cardinal;
player, playerM: dword;
Pos: record
x, y, z: Single;
end;
begin
handle := FindWindow(nil,'GTA:SA:MP');
GetWindowThreadProcessId(handle, process);
handleprocess := OpenProcess(PROCESS_ALL_ACCESS, False, process);
ReadProcessMemory(handleprocess,Pointer($B7CD98),@player,4,bytes);
if (player <> 0) then
begin
ReadProcessMemory(handleprocess,Pointer(player + $14),@playerM,4,bytes);
if (playerM <> 0) then
ReadProcessMemory(handleprocess,Pointer(playerM + $30),@Pos,12,bytes)
else
ReadProcessMemory(handleprocess,Pointer(player + 4),@Pos,12,bytes);
Edit1.Text := Format('%.4f %.4f %.4f', [Pos.x, Pos.y, Pos.z]);
end;
end;