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

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

Как вытащить иконку из любого exe и впихнуть в timage?

ROMBLLER ©   (2005-09-30 19:39:00) 

Пробавал

IconsId : word;
ic : hIcon;

begin IconIndex := 0;
h := ExtractAssociatedIcon(hInstance, 'C:\WINDOWS\explorer.exe', IconsId);
DrawIcon(Image1.Picture.Bitmap.Canvas.Handle, 15, 15, ic);

нефига не отображает

---

Sashka   (2005-10-01 14:09:00) [1]

Попробуй так:
var
 psfi : TSHFileInfo;
begin
 SHGetFileInfo('C:\WINNT\explorer.exe', 0, psfi, SizeOf(psfi), SHGFI_ICON or SHGFI_LARGEICON);
 DrawIcon(Image1.Picture.Bitmap.Canvas.Handle, 15, 15, psfi.hIcon);
.......

---

ROMBLLER   (2005-09-30 19:44:00) [2]

блин неправильно набрал...

в общим вот что набираю и нечего..

var
IconsId : word;
ic : hIcon;

begin IconsId := 0;
ic := ExtractAssociatedIcon(hInstance, 'C:\WINDOWS\explorer.exe', IconsId);
DrawIcon(Image1.Picture.Bitmap.Canvas.Handle, 15, 15, ic);

---

Наверх