Запрет контекстного меню

[MS]

Подскажите, как в windows запретить контекстное меню для файлов и папок(копировать, вставить, удалить). Желательно, не только меню, но и вообще запрет на эти задачи.

Заранее спасибо.

[Алексей++]

MS, где то в реестре асть описание пунктов меню для объектов

где - я щас сразу и не нашёл...

[RXL]

MS, не ясно, какая тут связь с Delphi? Поясни!

[Sel]

MS, мне попадалось упомнание вот этого сайта в связи с манипуляциями с контекстным меню и Дельфи, посмотри, вдруг найдешь...
А еще вот по этой ссылке можно почитать...

[nikedeforest]

Ссылки  в посте №3 направлены в никуда.
RXL, MS пишит на Дельфи, может по этому он вопрос и затолкал в эту ветку. Я так понимаю, ему нужно решить проблему программным путем

[Sel]

Ссылки поправила. 

[nikedeforest]

Ага .
Меня вот только одно смущает. Я так понимаю результатом данного запрета будет невозможность копирования и удаления файлов "во всей ОС". Любопытства ради, а зачем это?

[Алексей++]

nikedeforest, скорее всего это что то типа компа в игровухе )

[zubr]

Меня вот только одно смущает. Я так понимаю результатом данного запрета будет невозможность копирования и удаления файлов "во всей ОС".

Да нет, это только касается оболочки, проводника в частности.
Ms, в случае запрета действий оболочки, в Delphi есть пример как это делается: ...Borland\Delphi7\Demos\ActiveX\ShellExt

[x77]

я решал сходную задачу радикально - заменял проводника своей shell-программой делается исправлением единственного пункта в реестре.

[MS]

nikedeforest, скорее всего это что то типа компа в игровухе )

У меня братан мелкий, вот и хочу, чтобы без меня он ничего и не копировал.

[x77]

мне кажется, для таких задач проще завести отдельный аккаунт и настроить политику.

[Gh0stik]

Чтож запретить то очень просто, при помощи такого ключа в реестре:
Ветка: HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
Ключ: типа DWORD NoViewContextMenu
Значение: 1 (запрещает контекстное меню). Для отмены действие - 0/ либо просто удалить ключ.

А Delphi можно прицепить к этому вопросу так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var r:TRegistry;
begin
  r:=TRegistry.Create;
  with r do
  begin
    RootKey:=HKEY_CURRENT_USER;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\',true);
    WriteInteger('NoViewContextMenu',1);
    CloseKey;
  end;
end;

Только не забудьте прописать... uses registry;

Вот единственное хотелось бы предупредить что после такого изменения - тяжковато будет работать в системе без контекстного меню...

Удачи!!!

[MS]

Gh0stik, спасибо

[Gh0stik]

Gh0stik, спасибо

Да не за что просто ежели чаво обращайтесь... По поводу реестра, я уже многих собак съел..