Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Как правильно реализовать регистрацию класса


Автор: wildru 16.2.2009, 16:37
Подскажите, ко может...

Как правильно реализавоть регистацию класса расширения оболочки для виртуального файла (полученого через IEnumIDList). Например расширение IExtractIcon. 

Может через интерфейс IQueryAssociation...?

Я делаю так:

- Зарегистрировал класс реализаии интерфейса IShellFolder TShellFolder для файла с нужным расширением по категории CATID_BrowsableShellExt.
- В функции CreateViewObject для IShellView создаю стандартный ShellView через SHCreateShellFolderView
- В функции EnumObjects возвращаю IEnumIDList
- В функции BindToObject для элемента из IEnumIDList возвращаю IShellFolder выполняемый тем же классом TShellFolder
- В функции GetUIObjectOf возвращаю IExtractIcon 

Результат не радует: При реализации интерфейса IExtractIcon для расширения простанства имен конкретного фала , не отображаются иконки для виртуальных элементов список которых составляю через IEnumIDList. В дереве проводника иконки показываются правильно, а в самом списке справа показывается иконка непонятно какая, толи иконка основного класса , толи первая попавшаяся. 

Один из вариантов реализация IExtractIcon:

Код


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). В общем перепробовал многое , ничего не помогает.


M
bartram		Название темы должно  отражать ее суть

Автор: Poseidon 16.2.2009, 17:01
Одним постом сразу 2 правила форума нарушил:
Один топик - один вопрос
Название темы должно кратко отражать ее суть

Придут модеры, настучат по голове.

Добавлено через 1 минуту и 15 секунд
а еще используй тег [code]

Автор: wildru 16.2.2009, 18:33

Название темы должно кратко отражать ее суть. -  Не знаю как поменять тему.
Один топик - один вопрос. - Переделал.

Надеюсь это как то поможет рещению проблемы.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)