VPF::Как вычислить размер ресурса содержащего иконки

0FF

Дата 30.9.2003, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 10.8.2003

Репутация: нет
Всего: нет

Как вычислить размер ресурса (PE-файла) содержащего иконки.
в смысле сколько он занимает байт.

Dmitry V.Abramov

Дата 30.9.2003, 17:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 177
Регистрация: 30.9.2003
Где: Saint-Petersburg

Репутация: 5
Всего: 4

Какой-то конкретный RT_ICON ? Или RT_GROUP_ICON ? Или суммарный размер всех иконок в .res ? Или речь обо всем .res ?

--------------------

/DVA

stab

Дата 30.9.2003, 22:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48

для RT_ICON SizeOfResource, для RT_GROUP_ICON надо узнать какие иконки входят в группуи так же юсать SizeOfResource.

--------------------

6, 6, 6 - the number of the beast.

0FF

Дата 3.10.2003, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 10.8.2003

Репутация: нет
Всего: нет

Так SizeofResource . А как найти resource-module handle ?
Вроде FindResource?

Вообщем, Если кому не в падлу, напишите plz. готовый пример. :|

stab

Дата 4.10.2003, 19:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

Репутация: 14
Всего: 48

Цитата

А как найти resource-module handle ?

GetModuleHandle

пример, находит размер иконки в твоем exe:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  mh, ri: Cardinal;
begin
  mh := GetModuleHandle(nil);
  ri := FindResource(mh, PChar(1), RT_ICON);
  Caption := IntToStr(SizeofResource(mh, ri));
end;

--------------------

6, 6, 6 - the number of the beast.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »