Инструменты пользователя

Инструменты сайта


blackbox:faq:startup

Это старая версия документа!


Как добавить опциональные команды при запуске среды?

Процесс загрузки системы Блэкбокс на третьем шаге запуска пробует вызвать команду Startup.Setup. Обычно модуль Startup не существует. Он может быть использован для установки некоторых служб до того, как откроется главное окно и загрузятся текстовая и другие подсистемы. В том числе в этом модуле возможно запрограммировать отложенный вызов команд для открытия документов и т.п. после запуска среды.

MODULE Startup;

	IMPORT Log, Dialog, Services;

	TYPE		
		Action = POINTER TO RECORD (Services.Action) END;

	VAR 
		a: Action;

	PROCEDURE (a: Action) Do;
	VAR res: INTEGER;
	BEGIN
		Dialog.Call("StdCmds.OpenDoc('System/Mod/Startup.odc')", "", res)
	END Do;
	
	PROCEDURE Setup*;
	BEGIN
		NEW(a);
		Services.DoLater(a, Services.Ticks() + Services.resolution)
	END Setup;

END Startup.
blackbox/faq/startup.1752871968.txt.gz · Последнее изменение: 2025/07/18 23:52 — iadenisov