Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Получить оверлейный значок   Найти похожие ветки 

 
Alx2k   (2009-03-24 13:57) [0]

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


 
Eraser ©   (2009-03-24 15:08) [1]

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.


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

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


 
Alx2k   (2009-04-06 13:42) [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);


 
clickmaker ©   (2009-04-06 13:48) [4]

> upper eight bits

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


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

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



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

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.224 c
2-1273824908
Игорек
2010-05-14 12:15
2010.08.27
Как лучше работать с файлом размером больше 100мб


2-1265953833
n_sch
2010-02-12 08:50
2010.08.27
Rave Reports 5


15-1264355410
GDI+
2010-01-24 20:50
2010.08.27
Нифига себе прогнозы!..


2-1266402247
00110011
2010-02-17 13:24
2010.08.27
TStrings.Assign


2-1273479707
JohnKorsh
2010-05-10 12:21
2010.08.27
Можно ли из Delphi управлять сетевым доступом к ресурсам?