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

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

Получить иконку окна

_TEST_ ©   (2004-09-11 06:48:00) 

Как получить иконку окна(хандл окна известен) и добавить ее в ImageList?

---

DeadMeat   (2004-09-11 20:24:00) [1]

> [1] beatles_bntu ©   (11.09.04 11:19)

Прикол в том, что у окна может быть другой значек, нежели у *.EXE файла...

---
...Death Is Only The Begining...

---

DVM   (2004-09-11 13:46:00) [2]

WM_GETICON

---

beatles_bntu   (2004-09-11 11:19:00) [3]

можно зделать так а если обязательно через хандел окна то по ханделу окна всегда можно найти его запускной файл на винте
procedure TForm1.Button1Click(Sender: TObject);
var
 Icon:hIcon;
 Ic:TIcon;
 IconIndex:Word;
begin
 Edit1.Text:='%SystemRoot%\system32\SHELL32.dll';
 IconIndex:=1;//если несколько иконок в файле то можно 2,3,...
 Icon:=ExtractAssociatedIcon(HInstance,PChar
 (Edit1.Text),IconIndex);//Edit1.Text- путь к любому!!! файлу
 Ic:=nil;
 Ic:=TIcon.Create;
 Ic.Handle:=Icon;
 ImageList1.AddIcon(Ic);
end;

---

Наверх