Бинарник в программный код, как вставить? Опции

[undi]

Доку на асм почитал и не нашел... Может существует дирректива?
Или переколбашиватель в текстовый вид писать?

[undi]

Почти два килобайта надо вставить.
Вот я и думаю, что придется прогу писать, которая бинарник в .db <data>,<data>,<data>.........<data>
и переделает. Неохота как...

[nml]

Почти два килобайта надо вставить.
Вот я и думаю, что придется прогу писать, которая бинарник в .db <data>,<data>,<data>.........<data>
и переделает. Неохота как...

Ну если неохота... Вот:

Код

program bin_to_a;
{$APPTYPE CONSOLE}
uses
  SysUtils;

Var F:File of byte;FO:TextFile;
    B:Byte;
    I:Integer;
begin
  if ParamStr(1)='' then
    Begin
      Writeln('X:\bin_to_a filename');
      Halt(1);
    End;

  Assign(F,ParamStr(1));Reset(F);

  if IoResult<>0 then
    Begin
      Writeln('No file "'+ParamStr(1)+'"');
      Halt(1);
    End;

  Assign(FO,ChangeFileExt(ParamStr(1),'.inc')); Rewrite(FO);
  I:=0;
  Repeat
    if I=0 then Write(FO,#9'.db ');
    Read(F,B); Write(FO,'0x',IntToHex(B,2));
    if I=15 then Begin I:=0; Writeln(FO); End else Begin Write(FO,','); Inc(I); End;
  Until Eof(F);
  Close(F); Close(FO);


end.

Это для дельфи ... всего делов-то.