[GriLab]

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

Имеется код на С++. Помогите перевести данный код на 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?

Заранее спасибо!