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

← →
_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

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

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

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

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