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


Автор: RootMaster 19.2.2009, 21:23
Доброго времени суток.

По поводу расширения контекстного меню проводника интересует вопрос.
Если не затруднит, прошу ответить.

Вопрос:
Есть ли способы добавления иконки в контекстное меню проводника напротив заданного пункта?
По типу того, что имеется, напр, у winrar, notepad++ и тд?

DefaultIcon позволяет задать по стандарту привязку определенной иконки к созданному типу расширения, но это никак не позволяет отразить результат на выборе определенного действия над заданным расширением.

+ есть ли возможность добавить сепаратор через реестр вручную?

Формирование отдельного меню с сабами я вижу только через создание библиотеки, как это делает Fast Explorer - но это не вписывается в мои задачи, по-крайней мере, на данный момент. Хотя, если другого решения не найдется, прийдется склониться к данному варианту.

--
То есть, по сути, меня интересует вопрос создания изображения напротив определенного пункта в контекстном меню проводника средствами редактора реестра без создания .dll, путем добавления соответствующих ключей.
Если это возможно, прошу отписаться здесь или в icq: 136-048.

Автор: THandle 20.2.2009, 09:47
RootMaster, посмотри темы: 

http://forum.vingrad.ru/topic-33616.html
http://forum.vingrad.ru/topic-49054.html

Может что нибудь дадут smile

Автор: RootMaster 21.2.2009, 16:15
THandle

Это все было прочитано мной еще перед тем, как создавать этот топик.
Видимо, без .dll не обойтись.
В .dll загрузку иконки сделать не проблема.
Проблема в том, что инсталлится эта .dll не на всех машинах.
Дело в ОС, вероятнее всего. 
Думал, что проблемы всплывают из-за висты (во время регистрации библиотеки), однако при установке на ХP - это дело тоже повторилось.
Причем у меня инсталлится нормально (XP SP2), у др нет.
Ошибки видимой нету - просто не появляется пункт меню, который должен быть после регистрации библиотеки.

Код библиотеки регистрации:

Код

procedure TContextMenuFactory.UpdateRegistry(Register: Boolean);
var
  ClassID: string;
begin
  if Register then begin
    inherited UpdateRegistry(Register);
    ClassID := GUIDToString(Class_ContextMenu);
    CreateRegKey('.jpeg', '', 'ImgShare');
    CreateRegKey('.jpg', '', 'ImgShare');
    CreateRegKey('.bmp', '', 'ImgShare');
    CreateRegKey('.gif', '', 'ImgShare');
    CreateRegKey('.png', '', 'ImgShare');
    CreateRegKey('ImgShare\shellex', '', '');
    CreateRegKey('ImgShare\shellex\ContextMenuHandlers', '', '');
    CreateRegKey('ImgShare\shellex\ContextMenuHandlers\ContMenu', '', ClassID);
    if (Win32Platform = VER_PLATFORM_WIN32_NT) then
      with TRegistry.Create do
        try
          RootKey := HKEY_LOCAL_MACHINE;
          OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Shell Extensions', True);
          OpenKey('Approved', True);
          WriteString(ClassID, 'ImgShare');
        finally
          Free;
        end;
  end
  else begin
    DeleteRegKey('ImgShare\shellex\ContextMenuHandlers\ContMenu');
    DeleteRegKey('ImgShare\shellex\ContextMenuHandlers');
    DeleteRegKey('ImgShare\shellex');
    inherited UpdateRegistry(Register);
  end;
end;  
           

Причем, вроде все сделано по стандарту.
Если проблема регистрации библиотеки может зависеть от ОС, отпишитесь, плиз.

Автор: morpheyushka 24.2.2009, 11:35
А попробуй булевскую переменную по другому назвать:
Код

Register: Boolean

А то это слово все таки зарезервировано!

Автор: Rrader 24.2.2009, 12:10
morpheyushka, Register не является зарезервированным словом (директива). Несмотря на следующее
Цитата(help)

Hence--although it is inadvisable to do so--you can define an identifier that looks exactly like a directive.

автор не изменит имени параметра, потому что он (автор) перекрывает существующий метод, названный так разработчиками.

Добавлено через 3 минуты и 39 секунд
http://coding-stuff.blogspot.com/2008/07/vista-vs-delphi.html

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