Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не работает функция [D7, XP]

Adios © (2006-09-08 17:42:00)
почему происходит ошибка "Constant expression violates subrange bounds"?
count : integer;
count := ExtractIcon(hInstance,PChar(FileName), -1);
надо узнать кол-во иконок в файле, если так не работает тогда как?

default (2006-09-08 21:06:00) [1]
DprYg © (08.09.06 20:33) [10]
я имел ввиду Adios-а

DprYg (2006-09-08 20:33:00) [2]
Автор, конечно, не я (говорю же, лень писать самому). Это просто первая ссылка рамблера по теме.
А [6,8] я привел для работы с массивами иконок.

default (2006-09-08 19:42:00) [3]
ты что, автор? написал же...
вот пример...
uses ShellApi;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption :=
IntToStr(ExtractIcon(0, PChar(Application.ExeName), Cardinal(-1)));
end;

P.S. кошмар какой-то...

DprYg (2006-09-08 18:34:00) [4]
Вроде в хэлпе должно быть все написано. Но если трудно, вот ссылка:
http://yarchat.net76.ru/forum/viewtopic.php?p=16628
Конечно, этот пример далек от идеала, но я думаю разобраться в нем
и подправить немного легко. Просто самому лень писать...

Adios (2006-09-08 18:23:00) [5]
какие в ней константы, напиши пожалуйста пример?

DprYg (2006-09-08 18:16:00) [6]
ExtractIconEx решит все проблемы.

Adios (2006-09-08 18:12:00) [7]
тогда функция будет обращаться к иконке с индексом равным третьему параметру, а мне надо узнать скока там иконок, чтобы потом обращаться к ним по индексу?

default (2006-09-08 18:11:00) [8]
набери вместо -1 Cardinal(-1)

default (2006-09-08 18:06:00) [9]
третим параметром должно идти беззнаковое целое

Adios (2006-09-08 18:02:00) [10]
тогда что надо писать вместо -1 чтобы узнать количество иконок?

default (2006-09-08 17:50:00) [11]
потому и происходит потому что "Constant expression violates subrange bounds"

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »