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

Как экстрактить иконку из exe?   Найти похожие ветки 

← →
Гена   (2004-06-18 06:24) [0]

А вот вопрос целиком: нужно из любого экзешника взять иконку 16х16 и пихнуть в имаджлист, как это сделать? Не хочу создавать системный лист и извлекать картинку по индексу, ведь надо только одну иконку. А если файл без иконки, то надо автоматичски добавить стандартный значек.

---

← →
КаПиБаРа ©   (2004-06-18 06:26) [1]

C:\Program Files\Borland\Delphi6\Demos\ResXplor

---

← →
Гена   (2004-06-18 06:30) [2]

Не хочу с бинарными возиться

---

← →
хз ©   (2004-06-18 07:50) [3]

Ух ты какой. А нажать F1 тоже не судьба?

---

← →
Гаврила ©   (2004-06-18 09:57) [4]

function GetShellFileIcon(const FileName : string): HICON;
var
 SYSIL : THandle;
 SFI : TSHFileInfo;
begin
 Result:=0;
 FillChar(SFI, SizeOf(SFI), 0);
 SysIL := SHGetFileInfo(PChar(FileName), 0, SFI, SizeOf(SFI), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
 if SysIL <> 0
   then Result:=ImageList_GetIcon(SysIL, SFI.iIcon, 0)
   else RaiseLastOSError;
end;

---

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

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



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