проверка, что заблокирован этот модуль

Только технические вопросы по ЯОС и MINOS. Терминология и прочее - в других форумах.
Ответить
БудДен
Сообщения: 2839
Зарегистрирован: 07.10.18 14:01

проверка, что заблокирован этот модуль

Сообщение БудДен » 29.04.23 00:51

Работает только под Win32 пока что.

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

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

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

Ответить