Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить иконку ехе файла? [D5, WinXP]


F1 ©   (2004-10-05 16:25:00) 

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


F1   (2004-10-05 18:41:00) [1]

olookin

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


olookin   (2004-10-05 17:56:00) [2]

Так ведь сказали же - 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 17:50:00) [3]

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


Amoeba   (2004-10-05 17:47:00) [4]

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


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

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


Jay   (2004-10-05 17:13:00) [6]

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


F1   (2004-10-05 17:01:00) [7]

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


DesWind   (2004-10-05 16:49:00) [8]

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


DesWind   (2004-10-05 16:44:00) [9]

ExtractAssociatedIcon


Наверх

Титульная страница Поиск, карта сайта Написать письмо