Как вытащить иконку из любого 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);

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

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