Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как построить список Иконок из DLL

Автор: APro 27.9.2007, 13:05

Привет!

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

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

Автор: Snowy 27.9.2007, 13:11

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

Автор: BaD_SeCt0R 27.9.2007, 13:12

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

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

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

Автор: APro 27.9.2007, 16:46

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

Автор: Snowy 27.9.2007, 17:38

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

Код

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;

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

Автор: APro 27.9.2007, 19:10

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