Как извлечь иконку из другого файла
Как извлечь иконку из другого файла
Как извлечь иконку из другого файла procedure TMyForm.Button1Click(Sender: TObject); var ind: word; t: TIcon; begin t:=TIcon.Create; //индекс иконки, которую будем извлекать //если задать ind:=-1, получим количество иконок в файле, но тогда //надо использовать ExtractIcon. Т.е. можно извлечь все в цикле ind:=0; if OpenDialog1.Execute then //получаем копию иконки t.Handle:=ExtractAssociatedIcon(hInstance, PAnsiChar(OpenDialog1.FileName), ind); //изначально в ImageList1 уже было 3 иконки, добавляем 4-ю ImageList1.AddIcon(t); //присвоим новую, 4-ю иконку нашему приложению (для проверки :) ) ImageList1.GetIcon(3, Application.Icon); t.Free; end;
