Сегодня у нас более, чем простой урок. Бывалым врятли он понадобится, а вот новичкам можно взять на заметку.
Наверное многие замечали, что кодеры на C# часто засовывают xNet.dll в ресурсы и если в папке нет данной dll, исполняемый файл вытаскивает xNet из ресурсов и добавляет в нужную папку (часто в папку с .ехе).
Сегодня такое же мы будем проворачивать в Delphi.
Проще некуда.
Открываем нашу среду программирования (я юзаю Delphi 10) и заходим вот сюдам-с:

Здесь нам нужно засунуть в ресурсы наш файл, будь то dll или ещё какая-то лабуда. В моем случае это субтитры к фильму.
Жмем кнопочку Add и добавляем нужный файл:

Приступим к написанию кода:
Код
var
R: TResourceStream; // Объявляем переменную потока ресурсов
begin
// и распаковываем наш ресурс в нужную папку
R:=TResourceStream.Create(HInstance,'Resource_1',
RT_RCDATA); // второй аргумент,
это идентификатор ресурса.
Его можно посмотреть и изменить в окне,
где мы добавляли сам ресурс.
R.SaveToFile('C:\Users\xui.sub'); //
распаковываем нужный файл в папку
R.Free; // чистим за собой.
end;
Все очень просто. Удачи в написании хорошего кода!
|