Текущий архив: 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.004 c