Этот компонент использует код Delphi. Компонент используется тогда, когда подходящего компонента нет, а делать компонент нет смысла из-за нечастого использования. В таких случаях код вставляется в этот компонент.
С помощью этого компонента нельзя вставлять новые визуальные компоненты, можно только невизуальные.
Создайте новый проект и поставьте на рабочее поле компонент «Вставка кода». В нём уже есть необходимый код для корректной работы программы, вы можете запустить программу. Но никаких функций пока в компоненте нет. Сейчас мы добавим их.
Выделите компонент и откройте его параметр Code. Поле для ввода кода откроется на новой вкладке. Обратите внимание, что первая строка записана как unit HiAsmUnit. В файлах кодов здесь записано имя файла, ну а тут записывается именно так.
Ниже подключены три библиотеки: KOL, Share и Debug. Как правило, они всегда и используются в этом компоненте, но если понадобится другая библиотека (то есть нужно будет вызвать функции из неё, а не писать их в компоненте), то можно подключить и её.
Затем написано следующее.


type означает начало секции, где описываются характеристики компонента.
Компонент не имеет названия (имеется в виду сам код, а компонент «Вставка кода», конечно, имеет название), поэтому здесь выбрано формальное THiAsmClass. Затем идёт не присваивание, а знак равенства и стоит служебное слово class. А в скобках после него указан класс, то есть родительский объект для компонента. В данном случае это TDebug, один из базовых классов. Все его характеристики наследуются этим компонентом. Если бы стояло THIWin, то компонент был бы потомком другого объекта, но такого предка имеют только визуальные компоненты, для невизуальных нужен как раз указанный в коде. Он и будет для нас основным, менять тут ничего не надо.
private открывает секцию, где стоят описания глобальных переменных и функций, доступных только внутри компонента.
public открывает секцию, где описаны все характеристики компонента, доступные из HiAsm, например точки и параметры.
end закрывает все секции

Мы с вами напишем сюда код, который позволит управлять системным меню программы. Это такое меню, которые открывается при щелчке правой кнопкой по заголовку окна. Оттуда доступны функции «Закрыть», «Свернуть» и другие. В HiAsm нет компонента, позволяющего получать доступ к этому меню и изменять его. Полноценный компонент писать не будем и мы, а только реализуем небольшой пример во «Вставке кода».
В файлах кода тоже есть такие секции, но мы их не рассматривали тогда, потому что в файлах кода находится много кода, который затруднит понимание этого материала из-за ухудшения наглядности
Системное меню – стандартный элемент Windows-программ, значит, для работы с ним потребуется библиотека Windows. В разделе uses после слова Debug поставьте запятую и напишите Windows. В конце строки обязательно должна стоять точка с запятой (в конце мы покажем правильный вариант кода, вы сможете проверить свои ошибки, если они возникнут).
Каждый визуальный элемент в Windows имеет свой идентификатор. вы это уже знаете. Системное меню – тоже, именно благодаря идентификатору мы и получаем доступ к системному меню. Поэтому нужно объявить переменную, которая будет хранить идентификатор меню. Тип такой переменной – HMenu, но это опять же формальность, потому что идентификатор – это число типа Integer, и HMenu введено для того, чтобы программисты точно знали, для чего может использоваться эта переменная. У нас, однако же, переменная всего одна, поэтому мы просто напишем между private и public (в новой строке между ними, что относится к секции переменных) строку mn:integer, после чего обязательно поставим точку с запятой. mn – это имя переменной, оно выбирается произвольно (но только английскими буквами).
Теперь нужно объявить процедуру, по которой будет происходить определённое действие. В разделе public (то есть в новой строке до end) напишите: procedure red_men(var dt:TData; index:word), после чего поставьте точку с запятой. red_men – это имя процедуры, его тоже задают произвольно.
А теперь в разделе implementation (в строчках после этого слова, но до завершающего end) нужно написать обработчик процедуры. Скопируйте следующее.

THiAsmClass говорит о том, что процедура принадлежит именно этому компоненту. red_men – имя процедуры, которое мы использовали при объявлении. Ну а между началом и концом мы будем располагать действия.
Для начала нужно получить идентификатор. В коде для этого пользуются вызовом функции, которая вернёт идентификатор. А затем его нужно присвоить переменной. Запишите такую строку: mn := GetSystemMenu(ReadHandle,false) и в конце поставьте точку с запятой. Функция GetSystemMenu является стандартной для Windows API, она возвращает идентификатор системного меню окна. Но для этого ей нужно передать идентификатор самого окна! Функция ReadHandle содержит именно идентификатор данного окна, и это передаётся в параметре для вызова функции GetSystemMenu. После запятой в параметре передаётся значение false, это важный параметр, поэтому он тоже нужен.
Теперь в переменной mn находится идентификатор системного меню этого окна. Нам остаётся лишь вызвать другую функцию, для операций с меню.
Попробуем удалить пункты из этого меню. Для этого используется функция DeleteMenu, которой нужно передать идентификатор меню, позицию пункта меню или его идентификатор, константу, определяющую предыдущий параметр. Запишите в новой строке следующее: DeleteMenu(mn,0,mf_ByPosition). Не забудьте о точке с запятой. Итак, mn – это идентификатор, мы его передаём в параметре первым, как и требуется. 0 – это положение пункта меню. Пусть для начала удалим первый пункт (у него индекс равен нулю). mf_ByPosition говорит о том, что вторым параметром мы выбрали положение пункта меню, а не идентификатор.
Итак, код готов. Осталось только вызвать саму процедуру red_men. Для этого переключитесь на вкладку со схемой и выделите компонент «Вставка кода». Откройте его параметр WorkPoints и напишите там имя процедуры, в нашем случае это red_men. Закройте редактор точек и посмотрите на компонент: у него появился метод. вызвать вы его можете любым способом. Например, поставьте кнопку и подключите её к компоненту. Теперь запустите программу и посмотрите на системное меню, все пункты у него пока есть. Нажмите один раз кнопку. Исчезнет первый пункт. При следующем нажатии на кнопку отсчёт будет производиться относительно нового меню, то есть первым теперь будет тот пункт, что в старом меню был вторым. Он удалится. Таким образом можно удалить вообще все пункты системного меню, помните только, что вместе с ним удаляются и команды. То есть, если вы удалите пункт «Закрыть», то не сможете закрыть форму кнопкой в заголовке окна, хотя сможете по Alt+F4.
А сейчас взгляните на код, полученный нами (скопируйте его вставьте в HiAsm).

Это было небольшое знакомство с кодом, точнее не столько даже с кодом Delphi, сколько некоторыми особенностями оформления кода в HiAsm