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

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

Вы посетили:
blackbox:faq:startup

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Следующая версия 		Предыдущая версия
blackbox:faq:startup [2025/07/18 23:52]
iadenisov создано 		blackbox:faq:startup [2025/07/19 00:14] (текущий)
comdiv
Строка 1: Строка 1:
 ====== Как добавить опциональные команды при запуске среды? ====== ====== Как добавить опциональные команды при запуске среды? ======
  
-Процесс загрузки системы Блэкбокс на третьем шаге запуска пробует вызвать команду Startup.Setup. Обычно модуль Startup не существует. Он может быть использован для установки некоторых служб до того, как откроется главное окно и загрузятся текстовая и другие подсистемы. В том числе в этом модуле возможно запрограммировать отложенный вызов команд для открытия документов и т.п. после запуска среды.+Процесс загрузки [[:blackbox|системы Блэкбокс]] на третьем шаге запуска пробует вызвать команду Startup.Setup. Обычно модуль Startup не существует. Он может быть использован для установки некоторых служб до того, как откроется главное окно и загрузятся текстовая и другие подсистемы. В том числе в этом модуле возможно запрограммировать отложенный вызов команд для открытия документов и т.п. после запуска среды. Однако важно, что этот модуль может импортировать только самые базовые модули (из подсистемы System). Импорт модулей из других подсистем может нарушить порядок запуска среды. Если ваши эксперименты привели к тому, что среда перестала корректно запускаться, достаточно удалить файл ''System/Code/Startup.ocf''
  
 <code> <code>
 MODULE Startup; MODULE Startup;
  
- IMPORT Log, Dialog, Services;+ IMPORT Kernel, Log, Dialog, Services;
  
  TYPE   TYPE
  Action = POINTER TO RECORD (Services.Action) END;  Action = POINTER TO RECORD (Services.Action) END;
- 
- VAR  
- a: Action; 
  
  PROCEDURE (a: Action) Do;  PROCEDURE (a: Action) Do;
- VAR res: INTEGER;+ VAR res: INTEGER;
  BEGIN  BEGIN
  Dialog.Call("StdCmds.OpenDoc('System/Mod/Startup.odc')", "", res)  Dialog.Call("StdCmds.OpenDoc('System/Mod/Startup.odc')", "", res)
Строка 21: Строка 18:
   
  PROCEDURE Setup*;  PROCEDURE Setup*;
 + VAR a: Action;
  BEGIN  BEGIN
 + Dialog.appName := "BlackBox / my personal edition";
  NEW(a);  NEW(a);
- Services.DoLater(a, Services.Ticks() + Services.resolution)+ Services.DoLater(a, Services.now)
  END Setup;  END Setup;
  
 END Startup. END Startup.
 </code> </code>
blackbox/faq/startup.1752871968.txt.gz · Последнее изменение: 2025/07/18 23:52 — iadenisov

Инструменты страницы

Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Share Alike 4.0 International
CC Attribution-Share Alike 4.0 International Donate Powered by PHP Valid HTML5 Valid CSS Driven by DokuWiki