Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить оверлейный значок [D7, WinXP]


Alx2k ©   (2009-03-24 13:57:00) 

Доброе время суток.
Подскажите пожалуйста, как можно получить оверлейный значок, соответствующий файлу. (Например, оверлейные значки которые использует TortoiseSVN.)
Пробовал использовать SHGetFileInfo с разными параметрами (OVERLAYINDEX и т.д.), но так ничего и не добился.


Alx2k   (2009-04-06 16:17:00) [1]

Это дела не меняет, все равно не работает.


clickmaker   (2009-04-06 13:48:00) [2]

> upper eight bits

это Hi(HiWord(shInfo.iIcon))


Alx2k   (2009-04-06 13:42:00) [3]

Единственное, что удалось найти это вот такой пример http://www.devexpress.com/Support/Center/p/Q108611.aspx
Попробовал его прикруть, но не работает

SysImgList := SHGetFileInfo('C:\',
                          0,
                          FileInfo,
                          SizeOf(FileInfo),
                          SHGFI_ICON or SHGFI_OVERLAYINDEX);
....................
....................
SHGetFileInfo('c:\test\test.txt', 0, shInfo, SizeOf(shInfo),
        SHGFI_ICON or SHGFI_OVERLAYINDEX);
        I:=shInfo.iIcon;
        i := (i shr ((SizeOf(i) - 1) * 8)) and $FF - 1;
ImageList_Draw(SysImgList, I , Canvas.Handle, 10, 10, ILD_NORMAL);


Alx2k   (2009-03-24 15:19:00) [4]

Пробовал, но не получилось. Можно простейший примерчик?


Eraser   (2009-03-24 15:08:00) [5]

SHGFI_OVERLAYINDEX
Version 5.0. Return the index of the overlay icon. The value of the overlay index is returned in the upper eight bits of the iIcon member of the structure specified by psfi. This flag requires that the SHGFI_ICON be set as well.


Наверх

Титульная страница Поиск, карта сайта Написать письмо