[prosto_virus]

Код на Delphi 7 нужно перевести на xe3

Код:

var
v:HWnd;
gm: Byte;
ProcessId, hProcess: Integer;
BC : dword;
begin
v:=FindWindow(nil, PChar('GTA:SA:MP'));
gm:=1;
GetWindowThreadProcessId(v,@ProcessId);
hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
WriteProcessMemory(hProcess, ptr($0096918C), @gm, 1, BC);
WriteProcessMemory(hProcess, ptr($0096916D), @gm, 1, BC);
end;

Ошибка в этих строках (другая функция)
WriteProcessMemory(hProcess, ptr($0096918C), @gm, 1, BC);
WriteProcessMemory(hProcess, ptr($0096916D), @gm, 1, BC);