VPF::Как правильно реализовать регистрацию класса

wildru

Дата 16.2.2009, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.2.2009

Репутация: нет
Всего: нет

Подскажите, ко может...

Как правильно реализавоть регистацию класса расширения оболочки для виртуального файла (полученого через 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

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

Это сообщение отредактировал(а) bartram - 16.2.2009, 18:16

Poseidon

Дата 16.2.2009, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133

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

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

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

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

wildru

Дата 16.2.2009, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 16.2.2009

Репутация: нет
Всего: нет

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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »