Форум: "WinAPI";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Вниз
Строка в системном меню Найти похожие ветки
← →
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...
Это код?
← →
Neo Trinitron © (2006-06-14 15:17) [6]Пардон, получается, но только при нажатии правой клавиши на имя файла (не папки). Указал
R.OpenKey("Folder\shell", True);
Fay, код описан выше уважаемым MikeZом.
← →
Neo Trinitron © (2006-06-14 15:21) [7]А если нужно чтобы пункт меню был когда кликаю правой кнопкой не на файле, а просто в окне Explorer, чтобы использовать не один файл, а все или выделеные файлы?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2006.10.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.071 c
