Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Ресурсы приложения



Вернуться к списку функций
 Создание ресурса из файла

 Прислал: AlexO (Санкт-Петербург) ( 9 марта 2007 г. )
©  Собственный код
 Зависимости:
Classes, SysUtils

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Создание ресурса из файла

Зависимости: Classes, SysUtils
Автор:       AlexO, Санкт-Петербург
Copyright:   Собственный код
Дата:        9 марта 2007 г.
***************************************************************** }

procedure FileToRes(FileName: string);
 var fr,fw: TFileStream;
     i: integer;
 begin
  fr:= TFileStream.Create(FileName,fmOpenRead or fmShareDenyNone);
  try
   fw := TFileStream.Create(ChangeFileExt(FileName,'.res'),fmCreate);
   try
    fw.WriteResourceHeader(ChangeFileExt(ExtractFileName(FileName),''),i);
    fw.CopyFrom(fr, fr.Size);
    fw.FixupResourceHeader(i);
   finally
    Free(fw);
   end;
  finally
   Free(fr);
  end;
 end;


Вернуться к списку функций

Наверх ▲    

vimeo