Показать сообщение отдельно
  #1  
Старый 09.11.2011, 22:15
Аватар для GriLab
GriLab GriLab вне форума
Начинающий
 
Регистрация: 26.11.2010
Адрес: Минск
Сообщения: 190
Версия Delphi: XE 15.0.3890
Репутация: 415
По умолчанию Певести код на Delphi

Доброго всем!

Имеется код на С++. Помогите перевести данный код на Delphi:

Код:
DWORD BaseAddr = 0x400000; 

DWORD LASER =	BaseAddr + 0x0056E78;
DWORD NAMETAGS = BaseAddr + 0x02E1CE;

BYTE Laser[] = {0x74, 0x04};
BYTE NameTags[] = {0x75, 0x12};

BYTE NopOne[] = {0x90};

.....

WriteProcessMemory(ProcessHandle, (void*)LASER, &Laser, 2, 0);
WriteProcessMemory(ProcessHandle, (void*)NAMETAGS, &NopOne, 1, 0);

Интересуют выделенные красным фрагменты... Как это на D7?

Заранее спасибо!
Ответить с цитированием