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

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

← →
ROMBLLER   (2005-09-30 19:39) [0]

Пробавал

IconsId : word;
ic : hIcon;

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

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

---

← →
ROMBLLER   (2005-09-30 19:44) [1]

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

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

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);

---

← →
Sashka ©   (2005-10-01 14:09) [2]

Попробуй так:
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);
.......

---

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

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



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