ExtractIcon

← →
NeshBriges (2003-06-04 02:07) [0]

Пытаюсь извлечь иконку из файлов с помощью ExtractIcon но ничего не получается, может я что не ткак делаю? Мне нужно в Image показать иконку файла при нажатии на нем в ListBox. Может кто напишет?

← →
Clipper (2003-06-04 02:54) [1]

Взял из одного хелпа. Это типа такого:
procedure TIconShow.FileListBox1Click(Sender: TObject);
var
MyIcon: TIcon;
MyBitMap : TBitmap;
begin
MyIcon := TIcon.Create;
MyBitMap := TBitmap.Create;
try
{ получаем имя файла и связанную с ним иконку}
strFileName := FileListBox1.Items[FileListBox1.ItemIndex];
StrPCopy(cStrFileName, strFileName);
MyIcon.Handle := ExtractIcon(hInstance, cStrFileName, 0);
{ рисуем иконку на bitmap в speedbutton }
SpeedButton1.Glyph := MyBitMap;
SpeedButton1.Glyph.Width := MyIcon.Width;
SpeedButton1.Glyph.Height := MyIcon.Height;
SpeedButton1.Glyph.Canvas.Draw(0,0, MyIcon);
SpeedButton1.Hint := strFileName;
finally
MyIcon.Free;
MyBitMap.Free;
end;
end;

Не мешало бы ещё перед ExtractIcon(hInstance, cStrFileName, 0); сделать вызов ExtractIcon(hInstance, cStrFileName, -1);

ExtractIcon Найти похожие ветки