Как получить иконку ехе файла?

← →
F1 (2004-10-05 16:25) [0]

Тоесть допустим у меня есть значек Халф Лайф, мне надо вывести его изображение на форму. Подскажите процедурку.
Спасибо.

← →
DesWind © (2004-10-05 16:44) [1]

ExtractAssociatedIcon

← →
DesWind © (2004-10-05 16:49) [2]

Не понял у тебя уже есть иконка или ее надо получить?

← →
F1 (2004-10-05 17:01) [3]

Есть путь к ехе файлу типа D:\Games\hl.exe надо вывести а форму его иконку.

← →
Jay (2004-10-05 17:13) [4]

Вытащи чем-то вроде irfanview иконку, потом уже используй в программе

← →
F1 (2004-10-05 17:42) [5]

Jay: если не трудно, подробней, что такое irfanview и как им вытащить?
Если это программа которая вытаскивает из екзе файле иконку то не подходит, меня интересует как это програмно сделать.

← →
Amoeba © (2004-10-05 17:47) [6]

IrfanView - это БЕСПЛАТНАЯ и компактная программа типа ACDSee.
http://www.irfanview.com/

← →
F1 (2004-10-05 17:50) [7]

Мне не надо програма :cry: Я хочу знать как это сделать програмно.

Так ведь сказали же - ExtractAssociatedIcon или ExtractIcon. Попробуйте.... Вот небольшой пример - вместо im[n] используйте просто Image1. Уверяю, что иконку халвы он выцепляет:

procedure TForm1.Button1Click(Sender: TObject);
var r: array [0..1000] of char;
begin
if opendialog1.execute then begin
strpcopy(r,opendialog1.filename);
im[n]:=TImage.Create(Form1); im[n].Parent:=ScrollBox1;
im[n].width:=32; im[n].height:=32;
im[n].left:=10+32*w+w*10; im[n].top:=10;
im[n].Picture.icon.handle:=ExtractIcon(Hinstance,r,0);
Inc(w); Inc(n); end;
end;

← →
F1 (2004-10-05 18:41) [9]

olookin

Большое спасибо

Как получить иконку ехе файла? Найти похожие ветки