Текущий архив: 2006.04.30;
Скачать: CL | DM;

Вниз

как грузить иконки из dll?   Найти похожие ветки 

← →
unmi   (2005-12-06 10:31) [0]

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

---

← →
WondeRu ©   (2005-12-06 10:40) [1]

LoadLibrary + LoadIcon

---

← →
UnMi   (2005-12-06 10:50) [2]

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

---

← →
WondeRu ©   (2005-12-06 11:34) [3]

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

---

← →
WondeRu ©   (2005-12-06 11:38) [4]

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

Функция 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

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c