Как экстрактить иконку из 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 тоже не судьба?

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;

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