Вече на п-п-р

Код: Выделить всё

перем
	этотМодуль: Modules.Module;

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