| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как экстрактить иконку из exe?
Гена © (2004-06-18 06:24:00)А вот вопрос целиком: нужно из любого экзешника взять иконку 16х16 и пихнуть в имаджлист, как это сделать? Не хочу создавать системный лист и извлекать картинку по индексу, ведь надо только одну иконку. А если файл без иконки, то надо автоматичски добавить стандартный значек.
Гаврила (2004-06-18 09:57:00) [1]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;
хз (2004-06-18 07:50:00) [2]Ух ты какой. А нажать F1 тоже не судьба?
Гена (2004-06-18 06:30:00) [3]Не хочу с бинарными возиться
КаПиБаРа (2004-06-18 06:26:00) [4]C:\Program Files\Borland\Delphi6\Demos\ResXplor
| |
