inc_builder Files

Программа предназначена для перевода любого файла в массив байтов в формате Delphi/Pascal

В дальнейшем такой файл/массив использую для сохранения исходного кода программы в теле исполняемого файла программы.

использование: 
  inc_builder.exe <some_file>
результат: файл "inc.inc"
(при запуске программы без параметров извлекается архив исходника inc_builder_src.rar)

1. контекстное меню Windows на скомпилированной программе предлагает только заархивировать её (смотри instruction.png)
2. добавляю исходный код программы в архив
3. при архивации использую пароль, если требуется
4. полученный архив перетаскиваю на ехе-шник inc_builder и в результате получаю файл inc.inc
5. содержимое файла inc.inc
6. включаю  файл inc.inc в исходный код программы, для того чтобы Delphi обязательно скомпилировал массив
   использую вывод одного байта хоть куда, лишь бы Delphi не удалил массив как незадействованный
…
var
{$INCLUDE inc.inc}
begin
PostMessage(0,SrcData[0],0,0);
…
7. в контекстном меню Windows на скомпилированной программе появляется пункт просмотра архива

===============================================================================
Google translate  Eng

The program is designed to convert any file into an array of bytes in Delphi / Pascal format

In the future, such a file/array is used to save the source code of the program in the body of the program's executable file.

usage:
   inc_builder.exe <some_file>
result: "inc.inc" file
(when you run the program without parameters, the source archive inc_builder_src.rar is extracted)

1. Windows context menu on a compiled program only offers to archive it
 (see instruction.png)
2. I add the source code of the program to the archive
3. I use a password when archiving, if required
4. I drag the resulting archive onto the inc_builder exe-shnik and as a result I get the inc.inc file
5. contents of the inc.inc file
6. I include the inc.inc file in the source code of the program so that Delphi will surely compile the array
   I use the output of one byte anywhere, so long as Delphi does not delete the array as unused
…
var
{$INCLUDE inc.inc}
begin
PostMessage(0,SrcData[0],0,0);
…
7. in the context menu of Windows on the compiled program, the item for viewing the archive appears