var
v:HWnd;
gm: Byte;
ProcessId, hProcess: Integer;
BC : dword;
       WindowName: integer;
ProcessId1: integer; // Все эти переменные нужны для того, чтобы найти
ThreadId: integer; // процесс с игрой.
HandleWindow: Integer; //
write: cardinal; // В эту переменную попадёт количество записанных байтов.
buf: dword; // Тут будет содержаться значение, на которое будем изменять 4 байта.
      begin
      WindowName := FindWindow(nil,'GTA:SA:MP');
ThreadId := GetWindowThreadProcessId(WindowName,@ProcessId1); // Ищем хэндл процесса
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId1); // с нашей игрой.
buf:=2425393296; // значение адреса 0074542B в 4 байта

WriteProcessMemory(HandleWindow, ptr($0074542B), @buf, 4, write); // Адрес отвечающий за свободное перемещение мышкой
v:=FindWindow(nil, PChar('GTA:SA:MP')); // ищем handle окна
gm:=1; // значение 1 включен, значение 0 выключен. В байтах
GetWindowThreadProcessId(v,@ProcessId); // ищем pid окна
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); // получаем хэндл процесса
WriteProcessMemory(hProcess, ptr($00747FB6), @gm, 1, BC); // Делаем окно активным
WriteProcessMemory(hProcess, ptr($0074805A), @gm, 1, BC); // убираем фокус