Строка в системном меню

← →
Sicilla © (2006-05-13 19:27) [0]

Есть такая проблема. Надо добавить пункт в систеное меню Windows в окнах explorera, наподобие Касперского или Winrar.
Где и как надо прописаться в реестре? заранее спасибо

← →
MikeZ (2006-05-13 19:52) [1]

Просто - вот так:
Procedure Integrate(AMenuName, AMenuCaption, ACommandLine: String; AIntegrate: Boolean); Var R : TRegistry; Procedure WriteIntegrationData; Begin If Not AIntegrate Then Begin If R.KeyExists(AMenuName) Then R.DeleteKey(AMenuName); End Else Begin R.OpenKey(AMenuName, True); R.WriteString("", AMenuCaption); R.OpenKey("Command", True); R.WriteString("", ACommandLine); End; End; Begin R := TRegistry.Create; R.RootKey := HKEY_CLASSES_ROOT; R.OpenKey("*\shell", True); WriteIntegrationData; R.CloseKey; R.OpenKey("Directory\shell", True); WriteIntegrationData; R.CloseKey; R.Free; End;

Но могут быть проблемы с обработкой нескольких файлов.

По-другому - \Demos\ActiveX\ShellExt\ContMenu

← →
sicilla © (2006-05-13 20:08) [2]

Огромное спасибо!

← →
MikeZ (2006-05-14 20:49) [3]

На здоровье!

Если в строке
R.OpenKey("Directory\shell", True);
слово Directory заменить на Folder, то такое меню будет отображаться не только на реальных каталогах (типа С:\), но и на виртуальных папках (типа Корзины).

← →
Neo Trinitron © (2006-06-14 12:38) [4]

А у меня почему-то не получается...

W2k, D6...

← →
Fay © (2006-06-14 14:40) [5]

> W2k, D6...
Это код?

Пардон, получается, но только при нажатии правой клавиши на имя файла (не папки). Указал

R.OpenKey("Folder\shell", True);

Fay, код описан выше уважаемым MikeZом.

А если нужно чтобы пункт меню был когда кликаю правой кнопкой не на файле, а просто в окне Explorer, чтобы использовать не один файл, а все или выделеные файлы?

Строка в системном меню Найти похожие ветки