Скачать: CL | DM;

Получить иконку окна   Найти похожие ветки 

← →
_TEST_   (2004-09-11 06:48) [0]

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

---

← →
beatles_bntu ©   (2004-09-11 11:19) [1]

можно зделать так а если обязательно через хандел окна то по ханделу окна всегда можно найти его запускной файл на винте
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;

---

← →
DVM ©   (2004-09-11 13:46) [2]

WM_GETICON

---

← →
DeadMeat ©   (2004-09-11 20:24) [3]

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

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

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.036 c