Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
ВнизКак получить иконку зарегистрированного расширения Найти похожие ветки
← →
NLO (2002-01-20 12:04) [7]Вот как я решил эту проблему, выдрал эти функции из компонета FileBox.
Одна заполняет ImageList иконками а вторая взавитсимости от имени файла #иконки в ImageListe. имя файла необязательно должно содержать полный путь к файлу.
function GetImageIndex(FileName:string): Integer;
var
SHFileInfo: TSHFileInfo;
Flags: Integer;
s: string;
begin
Flags :=
SHGFI_USEFILEATTRIBUTES or
SHGFI_SYSICONINDEX or
SHGFI_EXETYPE;
Flags := Flags or SHGFI_SMALLICON;
s := FileName;
ShGetFileInfo(PCHAR(s),
0,
SHFileInfo,
SizeOf(TSHFileInfo),
Flags);
Result := SHFileInfo.iIcon;
end;
procedure GetImageList(Option: integer;ImageList:TimageList);
var
SHFileInfo: TSHFileInfo;
begin
with ImageList do
begin
ShareImages := true;
Handle := ShGetFileInfo("*.*", 0, SHFileInfo, SizeOf(TSHFileInfo),
Option or SHGFI_ATTRIBUTES or SHGFI_SYSICONINDEX)
end
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c