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

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

Помогите получить Icon из *.exe в tImageList !!! [D3, Win95/98]

Voland ©   (2001-12-28 01:50:00) 

Народ, подмогните чайнику...
Пока могу выбить только хэндл иконки... Как перевести hIcon в tIcon??? Или, может, поизящней можно?

---

handra   (2001-12-29 10:24:00) [1]

см. $(DELPHI)\Demos\Resxplor\ - подробный пример работы

---

Gennady   (2001-12-29 10:03:00) [2]

> Song

а GetIconту к чему? )

---

Song   (2001-12-28 21:04:00) [3]

ImageList1.GetIcon

---

Alex_Sudakov   (2001-12-28 18:05:00) [4]

А можно сделать тупо :
var Icon:TIcon;
...
Icon.Handle:=hIcon;
ImageList.Add(Icon);
Icon.Free;

---

Gennady   (2001-12-28 10:07:00) [5]

uses
Windows, Messages, .......
ImgList, ComCtrls, commctrl;


implementation

{$R *.DFM}

procedure Test(FileName: string; ImageList: TImageList);
var ico: HICON;
ILH: HIMAGELIST;
i: word;
begin
IHL:=ImageList.Handle;
ico:=ExtractAssociatedIcon(hInstance, PChar(FileName), i);
ImageList_AddIcon(ILH, ico);
end;

где-то так.. может где ошибка, но принцып такой.

---

Наверх