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

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

как грузить иконки из dll?

unmi ©   (2005-12-06 10:31:00) 

Здравствуйте всем. Вопрос в следующем, как грузить иконки
из dll? Именно их, просто каритнки не вопрос, а иконки? Например из shell32...

---

WondeRu   (2005-12-06 11:38:00) [1]

вот это тебе более подойдет:

Функция ExtractIcon позволяет извлечь иконку из exe, dll и ico-файлов. Если указанная иконка отсутствует, функция возвращает 0. Количество иконок, содержащихся в файле, можно узнать, указав в качестве последнего параметра –1.

uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
 ic: TIcon;
 i, count: integer;
 w: integer;
begin
 if OpenDialog1.Execute = false then
   Exit;
 Form1.Canvas.FillRect(Form1.Canvas.ClipRect);
 count := ExtractIcon(Application.Handle,
   PChar(OpenDialog1.FileName), -1);
 ic := TIcon.Create;
 w := Form1.Width div 32;
 for i := 0 to count - 1 do
 begin
   ic.Handle := ExtractIcon(Application.Handle,
     PChar(OpenDialog1.FileName), i);
   Form1.Canvas.Draw(32 * (i mod w), 32 * (i div w), ic);
 end;
 ic.Destroy;
end;

(с) delphiworld

---

WondeRu   (2005-12-06 11:34:00) [2]

winapi... смотри справку в MS Windows SDK (в делфе есть)

---

UnMi   (2005-12-06 10:50:00) [3]

А LoadIcon это чья функция?

---

WondeRu   (2005-12-06 10:40:00) [4]

LoadLibrary + LoadIcon

---

Наверх