Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
blackbox:faq:startup [2025/07/18 23:59] comdiv |
blackbox:faq:startup [2025/07/19 00:14] (текущий) comdiv |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
====== Как добавить опциональные команды при запуске среды? ====== | ====== Как добавить опциональные команды при запуске среды? ====== | ||
- | Процесс загрузки системы Блэкбокс на третьем шаге запуска пробует вызвать команду Startup.Setup. Обычно модуль Startup не существует. Он может быть использован для установки некоторых служб до того, как откроется главное окно и загрузятся текстовая и другие подсистемы. В том числе в этом модуле возможно запрограммировать отложенный вызов команд для открытия документов и т.п. после запуска среды. Однако важно, что этот модуль может импортировать только самые базовые модули (из подсистемы System). Импорт модулей из других подсистем может нарушить порядок запуска среды. | + | Процесс загрузки |
< | < | ||
MODULE Startup; | MODULE Startup; | ||
- | IMPORT Log, Dialog, Services; | + | IMPORT |
TYPE | TYPE | ||
Строка 12: | Строка 12: | ||
PROCEDURE (a: Action) Do; | PROCEDURE (a: Action) Do; | ||
- | VAR res: INTEGER; | + | VAR res: INTEGER; |
BEGIN | BEGIN | ||
Dialog.Call(" | Dialog.Call(" | ||
Строка 20: | Строка 20: | ||
VAR a: Action; | VAR a: Action; | ||
BEGIN | BEGIN | ||
+ | Dialog.appName := " | ||
NEW(a); | NEW(a); | ||
- | Services.DoLater(a, | + | Services.DoLater(a, |
END Setup; | END Setup; | ||
END Startup. | END Startup. | ||
</ | </ |