чуть элегантнее и для CT1, стилистику кода такую же как у авторши оставил для понятности:
Код:
lib_NWindow := LoadLibrary('NWindow.dll');
lib := lib_NWindow + $132060;
VirtualProtect(pointer(lib), 3, PAGE_EXECUTE_READWRITE, OldProtect);
p := pointer(lib);
byte(p^) := $c2;
byte(pointer(dword(p) + 1)^) := $08;
byte(pointer(dword(p) + 2)^) := $00;
VirtualProtect(pointer(lib), 3, PAGE_EXECUTE_READWRITE, OldProtect);