Код: Выделить всё
перем
этотМодуль: Modules.Module;
проц ЯБлокируюЛиМодуль¿(): булево;
нач
если этотМодуль = НУЛЬ то
этотМодуль := Modules.ThisModuleByAdr(адресОт(Открой));
утв(этотМодуль # НУЛЬ);
утв(этотМодуль.name = "ГрКдстп") всё;
возврат Objects.LockedByCurrent(этотМодуль)
кон ЯБлокируюЛиМодуль¿;