Как вытащить иконку?

← →
Antosya © (2003-01-26 12:12) [0]

Как вытащить иконку из файла, если знаешь путь к нему? Или показать список иконок, если их несколько?!

← →
Song © (2003-01-26 12:14) [1]

ExtractIcon()

← →
gsu © (2003-01-26 12:18) [2]

Тут кстати DVM жаловался по этому поводу: http://www.delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1043421943&n=5

← →
NewGuest (2003-01-26 14:13) [3]

Есть компаненты для вытаскивания иконок из !ехе...
Попытаюсь найти название

← →
NewGuest (2003-01-26 14:17) [4]

http://www.sources.ru/delphi_src1.shtml

вообщем где-то здесь...

← →
Antosya © (2003-01-26 18:47) [5]

Это всё не то, вот ты знаешь только путь к файлу, и всё!!!! Как выдернуть иконку и него:::??? Помогите!!! Дайте работоющий код! НЕ поскупитесь!

← →
Anatoly Podgoretsky © (2003-01-26 18:52) [6]

Для чего теье дан Лемос, наверно что бы пользоваться, а не то что бы место занимал. Мощный, законченный продукт РесурсЭксплорер, его сиотри, а еще лучше просто используй.

← →
Antosya © (2003-01-26 19:08) [7]

Не понял? Не вы о чём? Объясните тупому ламеру!!!!

← →
Романов Р.В. © (2003-01-26 19:17) [8]

Лемос - Demos каталог с примерами.

Попробуй:
http://www.torry.net/vcl/graphics/icons/icongrabber.zip
P.S. Сам не проверял, только нашёл ссылку НА ЭТОМ САЙТЕ

var MyIcon:TIcon;
PathToFile:string;
NumberIcon:integer;
begin
PathToFile:="c:\windows\explorer.exe";
NumberIcon:=1;
MyIcon:=TIcon.Create;
try
MyIcon.Handle:=ExtractIcon(HInstance,PChar(PathToFile),NumberIcon);
...делай с иконкой что хочешь...
finally
MyIcon.Free;
end;
end;

Спасибочки, всё попробую! Заранее благодарен!

Как вытащить иконку? Найти похожие ветки