Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c