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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.02.2014, 15:37   #21
STRELOK-2007
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 144
Восклицание

Цитата:
Сообщение от ReportCube Посмотреть сообщение
А как здорово звучит: "у меня есть так сказать "кроссбитный" самописный, ни от чего не зависящий модуль" Может быть от отсюда?
Звучит действительно здорово, особенно когда это действительно так.



Код:
TrstVersionResource = class
  protected
   FType,
   FName: PWideChar;
   FLID: Word;

   FResourceData: TMemoryStream;
   FFileName: WideString;

   FFixedInfo: TrstFixedFileInfo;
   FStringInfo: TrstStringFileInfo;
   FVarInfo: TrstVarFileInfo;

   FLTime,
   FPTime,
   FUTime,
   FSTime: Cardinal;

   FHas: array [0..3] of Boolean;

   function  PadValue(Value: Int64; BoundaryValue: Cardinal): Int64;
   function  ReadBuf(var Buf; ACount: Integer; Position: Int64): integer;
   function  GetFileLanguageID: LANGID;
   function  GetHas(const Index: Integer): Boolean;
  public
   constructor Create;
   destructor  Destroy; override;

   procedure Load(aFileName: WideString); overload;
   procedure Load; overload;
   procedure Save(aFileName: WideString); overload;
   procedure Save; overload;


   procedure Parse;
   procedure Update;

   property ResourceData: TMemoryStream read FResourceData write FResourceData;
   property FileName: WideString read FFileName write FFileName;

   property FixedInfo: TrstFixedFileInfo read FFixedInfo write FFixedInfo;
   property StringInfo: TrstStringFileInfo read FStringInfo write FStringInfo;
   property VarInfo: TrstVarFileInfo read FVarInfo write FVarInfo;

   property LoadTime: Cardinal read FLTime;
   property ParseTime: Cardinal read FPTime;
   property UpdateTime: Cardinal read FUTime;
   property SaveTime: Cardinal read FSTime;

   property HasVersionInfo: Boolean index 0 read GetHas;
   property HasFixedInfo: Boolean index 1 read GetHas;
   property HasStringInfo: Boolean index 2 read GetHas;
   property HasVarInfo: Boolean index 3 read GetHas;
 end;
Парсит\компилит ресурс версии по "фен-шую", то бишь по MSDN.

И как видно, модуль писался почти 3 года назад.
STRELOK-2007 вне форума Ответить с цитированием
Старый 18.02.2014, 15:53   #22
STRELOK-2007
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 144
По умолчанию

А теперь вопрос по теме:

Restorator кстати довольно таки глупая вещь на самом деле. Более удобная конечно, но за этой удобностью кроется подвох.

Она показывает просто "Иконка" и все тут.

ResourceHacker же, более простой, показывает вот что. В бинарнике, присутствует и RT_ICON\(Index)*\1033\
и
RT_GROUP_ICON\MAINICON\1033



*(Index) - это число, в моем случае от 1 до 10.

Сама по себе иконка была сделана в ICON WorkShop, и включает в себя эти самые разрешения. Размер ее, 101301 байт.

Ресурс RT_GROUP_ICON, если сохранить его в бинарный файл - весит 146 байт.
Каждый элемент ресурса RT_ICON\(Index) - сохраняется отдельно. Я сперва надеялся, что при сохранении - получу размер примерно равный иконке.
При удалении же любого из этих двух видов ресурсов, удаляются все.
(Хотя не знаю логику работы ресхакера, может быть это его заслуги).

Так вот, где почитать про формат этих ресурсов?
В MSDN подобного ничего не увидел (Да и с английским не все хорошо, помню очень долго разбирался с ресурсом версии, и недавно с COM Elevation Moniker).

И как из иконки сделать годные для обновления ресурсы? На примере версии, я убедился, что все-таки работают те "три сосны".
STRELOK-2007 вне форума Ответить с цитированием
Старый 18.02.2014, 16:01   #23
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Цитата:
Сообщение от STRELOK-2007 Посмотреть сообщение
Restorator кстати довольно таки глупая вещь на самом деле.
Глупая вещь, это пытаться написать софт усилиями других людей, чтоб потом его впаривать под видом своего творения. А то, что в продукте нет того, что тебе нужно, это ни коем образом не глупость.
doktor255 вне форума Ответить с цитированием
Старый 18.02.2014, 16:23   #24
STRELOK-2007
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 144
По умолчанию

Цитата:
Сообщение от doktor255 Посмотреть сообщение
Глупая вещь, это пытаться написать софт усилиями других людей, чтоб потом его впаривать под видом своего творения. А то, что в продукте нет того, что тебе нужно, это ни коем образом не глупость.
Впаривают бабушки на базаре, а мы продаем. И речи о продаже, вообще не идет, по крайней мере сейчас.
Ибо есть некоторые вещи, которые я пока-что не имею понятия как реализовать и одновременно не нужные мне, а в других системах эти вещи есть.

А вот то, что там нет того что мне нужно, это далеко не глупость.

P.S.
И помоему все программисты, пишущих для себя или для чужого дяди (который потом продает) - все спрашивают, и что получается - они глупостью страдают?

Откуда ты такой вылупился вообще докторишко, такой весь из себя умный и праведный, а еще платный софт пишет - с наглой рекламой в подписи. Небось и делфи пиратскую используешь, и компоненты с технологиями религия не позволяет купить? А еще про глупости тут втираешь.
А у меня софта почти на 100к куплено, даже больше наверное за все время.
STRELOK-2007 вне форума Ответить с цитированием
Старый 18.02.2014, 17:32   #25
doktor255
Заблокирован
 
Регистрация: 31.03.2011
Сообщений: 976
По умолчанию

Цитата:
Сообщение от STRELOK-2007 Посмотреть сообщение
P.S.
И помоему все программисты, пишущих для себя или для чужого дяди (который потом продает) - все спрашивают, и что получается - они глупостью страдают?
Бред сумасшедшего.
Цитата:
Сообщение от STRELOK-2007 Посмотреть сообщение
Откуда ты такой вылупился вообще докторишко
А вот это уже оскорбление. Второй раз за день. Правила форума почитай.

Последний раз редактировалось doktor255; 18.02.2014 в 18:05.
doktor255 вне форума Ответить с цитированием
Старый 18.02.2014, 18:36   #26
STRELOK-2007
Форумчанин
 
Регистрация: 06.08.2009
Сообщений: 144
По умолчанию

Цитата:
Сообщение от doktor255 Посмотреть сообщение
Бред сумасшедшего.

А вот это уже оскорбление. Второй раз за день. Правила форума почитай.
Слушай, свали с темы уже, ангелочек ты наш? Не засоряй ее.

Толку от тебя 0 целых 0 десятых, один флуд. Начиная с первого-же сообщения от тебя. Правила форума прочитай.

А еще наглая реклама в подписи. Оплатил ее?
STRELOK-2007 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно сменить иконку в трее компонента TtrayIcon ? zmxncb Компоненты Delphi 3 15.12.2014 03:26
Как сменить иконку у любого файла ЕХЕ cargo29 Общие вопросы Delphi 25 05.06.2011 23:46
значение из стороннего приложения Wov Общие вопросы Delphi 4 01.03.2011 00:04
Сменить иконку? zhook Общие вопросы Delphi 3 28.12.2010 00:57
Защита стороннего приложения Mifody Общие вопросы Delphi 1 25.03.2010 13:19