VPF::Как построить список Иконок из DLL

APro

Дата 27.9.2007, 13:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Привет!

Помогите реализовать это:
Что имеем: Есть ListBox, Image и есть DLL файл с иконками (только иконки и ничего лишнего)!
Задача: Постоить список (ListBox) из всех иконок в DLL и при нажатии на одну из иконок пусть отображаеться данная иконка в Image!

Я просто новичёк в этом деле... Если кто может помоч - Помогите!

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

Никогда не спорь с дураком, другие могут не заметить между вами разницы.
Чем реже открываешь рот, тем меньше слышишь глупостей.

Snowy

Дата 27.9.2007, 13:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

http://forum.vingrad.ru/topic-87129/index.html

BaD_SeCt0R

Дата 27.9.2007, 13:12 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

1. Перечислить иконки можно при помощи EnumResourceNames и EnumResourceTypes.

2. Выдернуть иконку можно с помощью ExtractIconEx

Да и поиск тебе поможет.

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

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

APro

Дата 27.9.2007, 16:46 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Значит примеров не будет? :(
Хоть какой нибудь кусочек кода дали...

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

Snowy

Дата 27.9.2007, 17:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Я ж дал линк на пример.
Вот тебе ещё один пример:

Код

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
const dll = 'C:\Windows\System32\shell32.dll';
var
  i,k: integer;
  h: hIcon;
  ico: TIcon;
begin
  ImageList1.Clear; ListView1.Clear;
  k := ExtractIcon(HInstance, dll, dword(-1));
  for i := 0 to k-1 do
  begin
    h := ExtractIcon(hInstance, dll, i);
    if h <> 0 then
    begin
      ico := TIcon.Create;
      ico.Handle := h;
      with ListView1.Items.Add do
      begin
        Caption := 'ico' + IntToStr(i);
        ImageIndex := ImageList1.AddIcon(ico);
      end;
      ico.Free;
    end;
  end;
end;

Проект прилагается...

Присоединённый файл ( Кол-во скачиваний: 8 )

sample.zip 1,29 Kb

APro

Дата 27.9.2007, 19:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Snowy, СПАСИБО! Правда исходник не понадобился (я не мог его скачать), а так Вобще Большое Спасибо!

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

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