Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.11.2018, 11:59
Maetsky Maetsky вне форума
Прохожий
 
Регистрация: 06.11.2018
Сообщения: 2
Версия Delphi: Delphi 2009
Репутация: 10
По умолчанию Возможно ли скрыть кнопки меню по Alt+Ctrl+Del в Win7/Vista?

Добрый день! По нажатию Alt+Ctrl+Del в Windows Vista, Windows 7 появляются кнопки в столбик:
1. Блокировать компьютер
2. Сменить пользователя
3. Выйти из системы
4. Сменить пароль...
5. Запустить диспетчер задач
6. Отмена

Возможно ли скрыть эти кнопки, оставив только последнюю "Отмена"? Например, для того, чтобы убрать кнопку "Запустить диспетчер задач", знаю такой код:
Код:
uses Registry;

var Reg: TRegistry;

Reg:=TRegIniFile.Create();
Reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
reg.WriteInteger('DisableTaskMgr', 1); //0 - вернуть на место
reg.Free;
Админ: Пользуемся тегами при оформлении кода!

А другие кнопки убрать можно?

Последний раз редактировалось Admin, 06.11.2018 в 19:17.
Ответить с цитированием
  #2  
Старый 07.11.2018, 08:01
Maetsky Maetsky вне форума
Прохожий
 
Регистрация: 06.11.2018
Сообщения: 2
Версия Delphi: Delphi 2009
Репутация: 10
По умолчанию

Хорошие люди посоветовали ссылку.

Код:
uses Registry;

//...

procedure TForm1.Button1Click(Sender: TObject); //сокрытие кнопок по Alt+Ctrl+Del
var Reg: TRegistry;
begin
try
Reg:=TRegIniFile.Create();
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('HideFastUserSwitching', 1); //Сменить пользователя
Reg.CloseKey;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('DisableLockWorkstation', 1); //Блокировать компьютер
Reg.WriteInteger('DisableChangePassword', 1);//Сменить пароль...
Reg.WriteInteger('DisableTaskMgr', 1); //Запустить диспетчер задач
Reg.CloseKey;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\Explorer', true);
Reg.WriteInteger('NoLogoff', 1); //Выйти из системы
Reg.WriteInteger('NoClose', 1); //Выключить компьютер
Reg.Free;
except
ShowMessage('У Вас нет прав администратора.');
end;
end;

procedure TForm1.Button2Click(Sender: TObject); //отображение кнопок
var Reg: TRegistry;
begin
try
Reg:=TRegIniFile.Create();
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('HideFastUserSwitching', 0);
Reg.CloseKey;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('DisableLockWorkstation', 0);
Reg.WriteInteger('DisableChangePassword', 0);
Reg.WriteInteger('DisableTaskMgr', 0);
Reg.CloseKey;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);
Reg.WriteInteger('NoLogoff', 0);
Reg.WriteInteger('NoClose', 0);
Reg.Free;
except
ShowMessage('У Вас нет прав администратора.');
end;
end;

Последний раз редактировалось Maetsky, 08.11.2018 в 05:56.
Ответить с цитированием
Ответ



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:36.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2018

ВКонтакте   Facebook   Twitter