| Автор
| Сообщение |
wild-ru
Новичок
Зарегистрирован: 16.02.2009
Сообщения: 1
|
|
|
Цитата |
|
Подскажите, ко может...
Как правильно реализавоть регистацию класса расширения оболочки для виртуального файла (полученого через IEnumIDList). Например расширение IExtractIcon.
Может через интерфейс IQueryAssociation...?
Я делаю так:
- Зарегистрировал класс реализаии интерфейса IShellFolder TShellFolder для файла с нужным расширением по категории CATID_BrowsableShellExt.
- В функции CreateViewObject для IShellView создаю стандартный ShellView через SHCreateShellFolderView
- В функции EnumObjects возвращаю IEnumIDList
- В функции BindToObject для элемента из IEnumIDList возвращаю IShellFolder выполняемый тем же классом TShellFolder
- В функции GetUIObjectOf возвращаю IExtractIcon
Результат не радует: При реализации интерфейса IExtractIcon для расширения простанства имен конкретного фала , не отображаются иконки для виртуальных элементов список которых составляю через IEnumIDList. В дереве проводника иконки показываются правильно, а в самом списке справа показывается иконка непонятно какая, толи иконка основного класса , толи первая попавшаяся.
Один из вариантов реализация IExtractIcon:
| delphi: | function TExtractIcon.GetIconLocation(uFlags: UINT; szIconFile: PWideChar; cchMax: UINT; out piIndex: Integer; out pwFlags: UINT): HResult; Begin StringToWideChar(GetModuleName(hInstance),szIconFi le,cchMax); piIndex := 0; pwFlags := GIL_DONTCACHE or GIL_PERINSTANCE; Result := S_OK; End; function TExtractIcon.Extract(pszFile: PWideChar; nIconIndex: UINT;out phiconLarge, phiconSmall: HICON; nIconSize: UINT): HResult; Var Index:Integer; Begin if fpidl = nil Then Begin phiconLarge := HICON(LoadImage ( hInstance, PAnsiChar('ICON0'), IMAGE_ICON, LoWord(nIconSize), LoWord(nIconSize), LR_DEFAULTCOLOR )); phiconSmall := HICON(LoadImage ( hInstance, PAnsiChar('ICON0'), IMAGE_ICON, HiWord(nIconSize), HiWord(nIconSize), LR_DEFAULTCOLOR )); End Else Begin Index := PMainItem(RelativeFromAbsolute(fpidl)).data.piInde x; phiconLarge := HICON(LoadImage ( hInstance, PAnsiChar('ICON'+IntToStr(Index)), IMAGE_ICON, LoWord(nIconSize), LoWord(nIconSize), LR_DEFAULTCOLOR )); phiconSmall := HICON(LoadImage ( hInstance, PAnsiChar('ICON'+IntToStr(Index)), IMAGE_ICON, HiWord(nIconSize), HiWord(nIconSize), LR_DEFAULTCOLOR )); End; Result := S_OK; End;
|
Может проблема заключатся в том, что в методе интерфейса IEnumIDList функция Next в параметре rgelt должна возвращать PItemIDList , который содержит полный путь начиная с DesctopFolder ? ( Т.е. этот параметр используется виндовым шелом как полный путь, а не как описание одного элемента ItemID). В общем перепробовал многое , ничего не помогает. |
|
| В начало |
|
 |
|
|
 |
|
