[одинадцатый]

Подскажите пожалйста как зашить в ЕХЕ файл два файла и извлекать их от туда потом. Я слышал что дело надо иметь с ресурсами какими то. как их делать тоже расскажите.

[Nyctos Kasignete]

В FAQ есть раздел Файловая система и в нём — подраздел «Ресурсы», с многочисленными примерами.

[одинадцатый]

Спасиба бальшое.
Не сомневался что ответите мне именно вы)))))))))))

[одинадцатый]

А если мне не ЕХЕ вшить надо а дргуой то в блокноте в строке
TESTFILE EXEFILE C:\Windows\Notepad.exe
надо за место EXEFILE писать чтото дргуое наверно.
и как потом этот txt откомпилировать с помощью brcc32?

[Nyctos Kasignete]

Вы, видимо, не очень внимательно просмотрели раздел «Ресурсы».
Вот цитата из одной из статей:

You can store any kind of file as a RCDATA resource.

А вот еще статья. Ну, и так далее, на самом деле...

[одинадцатый]

Через блокнот написал: FIL RCDATA CopyTraderSender.ex4.
Сохранил как myres.rc.
Потом Через блокнот написал: brcc32.exe myres.rc и сохранил как makeres.bat
файлы CopyTraderSender.ex4, myres.rc, makeres.bat лежат там же где и brcc32.exe.

В проге написал:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var res: TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, 'FIL', 'RCDATA');
  Res.SavetoFile('CopyTraderSender.ex4');
  Res.Free;
...
end;

и он в итоге выдал ошибку:
Project Project2.exe raised exception class eResNotFound with message 'Resourse FIL not found'.
Почему?

[Nyctos Kasignete]

А вы созданный ресурс прилинковали?

Код:

{$R test.res} //Это ваш RES-файл

[одинадцатый]

Да, вот так:

Код:

implementation
uses Unit2, Unit4;
{$R *.dfm}
{$R myres.res}

procedure TForm1.FormCreate(Sender: TObject);
...

[Nyctos Kasignete]

А так?

Код:

Res := TResourceStream.Create(Hinstance, 'FIL', RT_RCDATA);

[одинадцатый]

А так заработало)
Спасибо.