Не работает функция

← →
Adios © (2006-09-08 17:42) [0]

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

← →
default © (2006-09-08 17:50) [1]

потому и происходит потому что "Constant expression violates subrange bounds"

← →
Adios © (2006-09-08 18:02) [2]

тогда что надо писать вместо -1 чтобы узнать количество иконок?

← →
default © (2006-09-08 18:06) [3]

третим параметром должно идти беззнаковое целое

← →
default © (2006-09-08 18:11) [4]

набери вместо -1 Cardinal(-1)

← →
Adios © (2006-09-08 18:12) [5]

тогда функция будет обращаться к иконке с индексом равным третьему параметру, а мне надо узнать скока там иконок, чтобы потом обращаться к ним по индексу?

← →
DprYg © (2006-09-08 18:16) [6]

ExtractIconEx решит все проблемы.

← →
Adios © (2006-09-08 18:23) [7]

какие в ней константы, напиши пожалуйста пример?

← →
DprYg © (2006-09-08 18:34) [8]

Вроде в хэлпе должно быть все написано. Но если трудно, вот ссылка:
http://yarchat.net76.ru/forum/viewtopic.php?p=16628
Конечно, этот пример далек от идеала, но я думаю разобраться в нем
и подправить немного легко. Просто самому лень писать...

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

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

Автор, конечно, не я (говорю же, лень писать самому). Это просто первая ссылка рамблера по теме.
А [6,8] я привел для работы с массивами иконок.

Не работает функция Найти похожие ветки