| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Выцепить Маленькую иконку из файла... [D6, Win2k]

alxx ©   (2002-05-20 15:51:00) 

Если я использую GetAssociatedIcon - она мне выдает иконку заданного номера. А как мне вытащить именно маленькую 16х16, которая отображается, например в Explorer"e?

---

alxx   (2002-05-20 16:12:00) [1]

Да! Все круто. А я блин последние пару часов с этим мучался. Оказывается надо смотреть See Also.
Еща раз спасибо.

---

alxx   (2002-05-20 16:05:00) [2]

Спасибо, сейчас попробую...

---

MBo   (2002-05-20 15:57:00) [3]

попробуй
This code extracts small and large icons from application and draws them.
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
LargeIcon: HIcon;
SmallIcon: HIcon;
IconCount: Integer;
I: Integer;
FileName: PChar;
begin
FileName := "C:\Windows\RegEdit.exe";
IconCount := ExtractIconEx(FileName, -1, LargeIcon, SmallIcon, 0);
for I := 0 to Pred(IconCount) do
begin
ExtractIconEx(FileName, I, LargeIcon, SmallIcon, 1);
DrawIcon(Canvas.Handle, 5 + I * 36, 5, LargeIcon);
DrawIconEx(Canvas.Handle, 5 + I * 36, 50, SmallIcon, GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0, 0, DI_NORMAL);
end;
end;

---

Наверх