[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);

[lmikle]

Угу, уж сколько раз твердили миру, что с 2009 все строки юникодные.
См тут, например: http://stackoverflow.com/questions/1...nd-my-window-c
А проверять возврат GetWindowThreadProcessId и OpenProcess это ж, конечно, некошерно. Настоящие программилы так никогда не делают...