|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Иконки из .exe в ListView
Всем привет.
Такой вопрос, как загрузить иконку .exe в ListView? Пути до .exe будут браться из .ini Вид INI Код:
[test] Name=C:\путь\файл |
#2
|
||||
|
||||
ExtractIcon / ExtractIconEx
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
mrSlink2012 (26.03.2015)
|
#3
|
|||
|
|||
Спасибо.
Если можно не большой пример. Такой еще вопрос, как можно написать так что бы он доставал не по индексу а по размеру. то есть брал иконку именно 32х32 или 128х128. Т.к. данная функция берет только первую попавшуюся. Последний раз редактировалось mrSlink2012, 26.03.2015 в 16:20. |
#4
|
||||
|
||||
Функция ExtractIcon вернёт кол-во иконок в файле, если задать для неё последний параметр как –1. Вот просто пример
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Написал код на загрузку ListView с иконками но почему то ругается при компиляции. Хотя после ошибки все равно запускается но без иконки и только с одним итемом. Вот код
Код:
procedure TForm1.FormCreate(Sender: TObject); const SectionName = 'Game'; var Keys: TStringList; Inifile: TMemIniFile; I: Integer; A: array [0..78] of Char; s:TIcon; begin ListView1.ViewStyle := vsIcon; Inifile := TMemIniFile.Create('Settings.ini'); Keys := TStringList.Create; s:=tIcon.Create; Inifile.ReadSection(SectionName, Keys); for I := 0 to Keys.Count - 1 do with ListView1.Items.Add do begin Caption := Keys[i]; StrPCopy(A, Inifile.ReadString(SectionName, Keys[i], '')); ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0); end; s:=nil; FreeAndNil(Keys); FreeAndNil(Inifile); end; Код:
ListView1.LargeImages.Handle:= ExtractIcon(HInstance, A,0); |
#6
|
||||
|
||||
Какую ошибку выводит то?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
|||
|
|||
Вот
Он компилит выдает ошибку нажимаю "ок" и запускает программу |
#8
|
||||
|
||||
LargeImages не создан.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
А как создать? Извините новичок в Delphi
|