Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

FileHeader.ResId := $0000FFFF;

FileHeader.ResType := $0000FFFF;

{ Создаём заголовок данных для RC_DATA файла

Внимание: для создания более одного ресурса необходимо повторить следующий процесс, используя каждый раз различные ID ресурсов }

FillChar(ResHeader, SizeOf(ResHeader), #0);

ResHeader.HeaderSize := SizeOf(ResHeader);

// id ресурса - FFFF означает "не строка!"

ResHeader.ResId := $0000FFFF or(ResId shl16);

// тип ресурса - RT_RCDATA (from Windows unit)

ResHeader.ResType := $0000FFFF or (WORD(RT_RCDATA) shl16);

// размер данных - есть размер файла

ResHeader.DataSize := FS.Size;

// Устанавливаем необходимые флаги памяти

ResHeader.MemoryFlags := $0030;

{ Записываем заголовки в файл ресурсов }

RS.WriteBuffer(FileHeader, sizeof(FileHeader));

RS.WriteBuffer(ResHeader, sizeof(ResHeader));

{ Копируем файл в ресурс }

RS.CopyFrom(FS, FS.Size);

{ Pad data out to DWORD boundary - any oldrubbish will do!}

ifFS.Size modSizeOf(DWORD) <> 0 then

RS.WriteBuffer(Padding, SizeOf(DWORD) - FS.Size modSizeOf(DWORD));

{ закрываем файлы }

FS.Free;

RS.Free;

end;

Данный код не совсем красив, и отсутствует обработка ошибок. Правильнее будет создать класс, включающий в себя данный пример. Извлечение ресурсов из EXE теперь рассмотрим пример, показывающий, как извлекать ресурсы из исполняемого модуля. Вся процедура заключается в создании потока ресурса, создании файлового потока и копировании из потока ресурса в поток файла.

Листинг 2:

procedureExtractToFile(Instance:THandle; ResID: Integer; ResType, FileName: String);

var

ResStream: TResourceStream;

FileStream: TFileStream;

begin

try

ResStream := TResourceStream.CreateFromID(Instance, ResID, pChar(ResType));

try

//if FileExists(FileName) then

//DeleteFile(pChar(FileName));

FileStream := TFileStream.Create(FileName, fmCreate);

try

FileStream.CopyFrom(ResStream, 0);

finally

FileStream.Free;

end;

finally

ResStream.Free;

end;

exceptonE:Exception do

begin

DeleteFile(FileName);

raise;

end;

end;

end;

Всё, что требуется, это получить Instance exe-шника или dll (у Вашего приложения это Application.Instance или Application.Handle, для dll Вам прийдётся получить его самостоятельно :) ResID тот же самый ID , который был присвоен ресурсу ResType WAVEFILE, BITMAP, CURSOR, CUSTOM – это типы ресурсов, с которыми возможно работать, но у меня получилось успешно проделать процедуру только с CUSTOM FileName – это имя файла, который мы хотим создать из ресурса

Пока ..

Igor Nikolaev aKa The Sprite

[ spritesoft@bos.ru]

…я скопировал все файлы (и программу, и базу данных) демонстрационного приложения в новый каталог, чтобы поэкспериментировать с программой, не трогая оригинал…

Самый простой путь сделать это:

1. «Save Project As» (сохранить проект как) в ваш новый каталог.

2. Для каждого PAS-файла проекта сделайте операцию «Save As» (сохранить как)

3. Запустите View/ProjectManager для проверки отсутствия ссылок на старый каталог

Если вы уже скопировали PAS-файлы в новый каталог, то в качестве альтернативы к п.(2) могу предложить воспользоваться кнопками плюс/минус в Менеджере Проекта (Project Manager), это поможет вам удалить старое и добавить файлы из нового каталога.

– Mike Orriss

…я все еще ищу *крутой* способ отрисовки содержимого окна редактирования IDE, и уже добрался до списка дескрипторов окон. Я так понял, что для этого нужно использовать инструментальный интерфейс (Tools Interface), только c помощью него, да? Ну и как этим чудом воспользоваться?

Приведенный ниже код может использоваться для включения заголовка исходного кода, представляющего собой шапку с информацией об авторских правах, авторе, версии и пр. при добавлении нового модуля или формы к вашему проекту. TIAddInNotifier - класс, реализованный в ToolIntf и позволяющий "захватывать" такие события, как открытие файлов, их закрытие, открытие и закрытие проекта и др. Я перекрыл процедуру FileNotification для захвата событий AddedToProject и RemovedFromProject. В обработчике события AddedToProject вы можете получить доступ к новому модулю проекта, особенно это касается процедуры InsertHeader. Я создал наследника класса TIEditorInterface, расположенного в файле EditIntf.pas, и создал собственную процедуру InsertHeader.

VCSNotifier создается в другом модуле и здесь не показан. Приведенный ниже код является частью моей программы, осуществляющей контроль версий dll. При создании код "живет" до тех пор, пока работает Delphi. При получении кода AddedToProject, я проверяю наличие файла (должен быть новым), и что он является .pas-файлом. Затем я создаю VCSEditorInterface, мой унаследованный интерфейс, и использую мою процедуру InsertHeader.