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

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

← →
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: Я хочу знать как это сделать програмно.

---

← →
olookin ©   (2004-10-05 17:56) [8]

Так ведь сказали же - 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

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

---

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

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



Память: 0.46 MB
Время: 0.022 c