Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.07.2010, 13:02   #1
YarUnderoaker
Пользователь
 
Регистрация: 30.03.2010
Сообщений: 11
По умолчанию IOTAProjectResource

Есть такой интерфейс IOTAProjectResource из ToolsAPI.pas для работы с ресурсами проекта.
Интересует метод
function CreateEntry(ResType, Name: PChar; Flags, LanguageId: Word;
DataVersion, Version, Characteristics: Integer): IOTAResourceEntry;

Новый ресурс созадется
ResourceEntry := Resource.CreateEntry(RT_RCDATA, PChar(glsLauncherData), 0, 0, 0, 0, 0);
сохраняется в res и в exe присутствует.
но загрузить я его не могу

Подозреваю что надо задавать переметры отличные от нуля, но какие?
В справке этого нет, в гугле тоже.
YarUnderoaker вне форума Ответить с цитированием
Старый 27.07.2010, 17:20   #2
YarUnderoaker
Пользователь
 
Регистрация: 30.03.2010
Сообщений: 11
По умолчанию

Уря, догадка была верна
Подсмотрел эти значения у стандартных ресурсов
Код:
      if ResourceEntry.GetHeaderValue(hvFlags, J) then
        Logger.LogDebug(Format('Resource %d flag %d', [i, j]));
      if ResourceEntry.GetHeaderValue(hvLanguage, J) then
        Logger.LogDebug(Format('Resource %d Language %d', [i, j]));
      if ResourceEntry.GetHeaderValue(hvDataVersion, J) then
        Logger.LogDebug(Format('Resource %d DataVersion %d', [i, j]));
      if ResourceEntry.GetHeaderValue(hvVersion, J) then
        Logger.LogDebug(Format('Resource %d Version %d', [i, j]));
      if ResourceEntry.GetHeaderValue(hvCharacteristics, J) then
        Logger.LogDebug(Format('Resource %d Characteristics %d', [i, j]));
для флага взял значение 4112, для языка - 1033 (Английский США). Остальное по нулям.
и ресурс стал грузится.
YarUnderoaker вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц