[Drin]

чуть элегантнее и для 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);