Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2015.09.13;
Скачать: CL | DM;

Вниз

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

 
vv_fran   (2010-05-12 16:24) [0]

Как из одного приложения вытащить иконки других приложений тоже написанных на Дельфи? Хочу создать приложение из которых бы запускались бы другие программы. При запуске она из *.ini файла считывала бы проги, которые она будет запускать и строила ТаскБар и иконками этих программ.


 
tesseract ©   (2010-05-12 17:05) [1]

А есть ли разница? См ExtractIcon.


 
vv_fran   (2010-05-12 17:07) [2]

ок, спасибо.


 
SD Software   (2010-05-12 18:41) [3]

uses ShlObj, ShellAPI;

procedure GetIcon(Path: String; var Icon: TIcon);
var
 FileInfo: TShFileInfo;
 ImageList: TImageList;
begin
 ImageList := TImageList.Create(nil);
 FillChar(FileInfo, Sizeof(FileInfo), #0);
 ImageList.ShareImages := True;
 ImageList.Handle := SHGetFileInfo(PChar(Path), SFGAO_SHARE, FileInfo, SizeOf(FileInfo), SHGFI_SMALLICON{ - 16x16, SHGFI_LARGEICON - 32x32} or SHGFI_SYSICONINDEX);
 ImageList.GetIcon(FileInfo.iIcon, Icon);
 ImageList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 TmpIcon: TIcon;
begin
 TmpIcon:= TIcon.Create;
 GetIcon("C:\Windows\system32\calc.exe", TmpIcon);
 Image1.Picture.Icon:= TmpIcon;
 TmpIcon.Free;
end;



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

Текущий архив: 2015.09.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.003 c
15-1422426177
mein
2015-01-28 09:22
2015.09.13
Немного истории - Казань брал!..


3-1305523618
Михаил
2011-05-16 09:26
2015.09.13
Группировка записей таблицы в одно поле


15-1422634959
Pavia
2015-01-30 19:22
2015.09.13
Одна пака три диска


2-1398316535
lewka_s
2014-04-24 09:15
2015.09.13
Проверка создания формы


4-1273667044
vv_fran
2010-05-12 16:24
2015.09.13
Как вытащить иконки из exe?