Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 06.11.2018, 12:58   #1
Maetsky
Пользователь
 
Регистрация: 14.03.2011
Сообщений: 11
По умолчанию Возможно ли скрыть кнопки меню по 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\Win dows\CurrentVersion\Policies\System ', true);
reg.WriteInteger('DisableTaskMgr', 1); //0 - вернуть на место
reg.Free;

А другие кнопки убрать можно?
Maetsky вне форума Ответить с цитированием
Старый 06.11.2018, 13:44   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,450
По умолчанию

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

Последний раз редактировалось NetSpace; 06.11.2018 в 21:39.
NetSpace вне форума Ответить с цитированием
Старый 06.11.2018, 13:55   #3
Alex11223
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от NetSpace Посмотреть сообщение
отловить хэндл окна
Как ловить будете?
Alex11223 на форуме Ответить с цитированием
Старый 07.11.2018, 09:05   #4
Maetsky
Пользователь
 
Регистрация: 14.03.2011
Сообщений: 11
По умолчанию

Хорошие люди посоветовали ссылку.
Нашёл, но не всё. Ниже кнопки по порядку, появляющиеся по Alt+Ctrl+Del и справа записи реестра, которые отвечают за показ кнопок:

1. Блокировать компьютер - DisableLockWorkstation
2. Сменить пользователя - ?
3. Выйти из системы - NoLogoff
4. Сменить пароль... - DisableChangePassword
5. Запустить диспетчер задач - DisableTaskMgr
6. Выход - NoClose

Кнопочку "Сменить пользователя" никак не убрать.
Maetsky вне форума Ответить с цитированием
Старый 07.11.2018, 09:05   #5
Maetsky
Пользователь
 
Регистрация: 14.03.2011
Сообщений: 11
По умолчанию

Или я мало курил эту таблицу, может проглядел.
Maetsky вне форума Ответить с цитированием
Старый 07.11.2018, 10:25   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

проверьте этот способ - http://www.interface.ru/home.asp?artId=21841
но, честно говоря, я не удивлюсь, если это не сработает.


p.s. а что это Вы такое пишете?
Вирус-вымогатель? Винлокер?
Какую задачу Вы пытаетесь решить столь радикально-хакерским способом?!
Serge_Bliznykov вне форума Ответить с цитированием
Старый 07.11.2018, 10:28   #7
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,097
По умолчанию

Не спасет. Сторонних менеджеров процессов кучка и на реестр они реагируют. Да и остальные кнопки мало кто из продвинутых пользователей используют.
Пишу программы на С++. ТЗ, цену и сроки на p51x.fr {@} яндекс.ру
p51x вне форума Ответить с цитированием
Старый 07.11.2018, 11:23   #8
Maetsky
Пользователь
 
Регистрация: 14.03.2011
Сообщений: 11
По умолчанию

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\Win dows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('HideFastUserSwitc hing', 1); //Сменить пользователя
Reg.CloseKey;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('DisableLockWorkst ation', 1); //Блокировать компьютер
Reg.WriteInteger('DisableChangePass word', 1);//Сменить пароль...
Reg.WriteInteger('DisableTaskMgr', 1); //Запустить диспетчер задач
Reg.CloseKey;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\Explor er', 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\Win dows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('HideFastUserSwitc hing', 0);
Reg.CloseKey;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\System ', true);
Reg.WriteInteger('DisableLockWorkst ation', 0);
Reg.WriteInteger('DisableChangePass word', 0);
Reg.WriteInteger('DisableTaskMgr', 0);
Reg.CloseKey;
Reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Policies\Explor er', true);
Reg.WriteInteger('NoLogoff', 0);
Reg.WriteInteger('NoClose', 0);
Reg.Free;
except
ShowMessage('У Вас нет прав администратора.');
end;
end;

Последний раз редактировалось Maetsky; 08.11.2018 в 06:51.
Maetsky вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Windows ctrl-alt-del Ubuntu alt-sysrq-i veter_s_morya Свободное общение 8 13.08.2010 16:16
Как сделать так, что бы приложение не реагировало на Alt+Tab, Windows и Ctrl+Alt+Del? st6al Помощь студентам 0 27.12.2009 20:48
CTRL+ALT+DEL foxes Общие вопросы Delphi 8 06.07.2009 12:46
не получается отключение CTRL+alt+del? Alt+TAb, часов с панели задач и Крестик окна Reds Общие вопросы Delphi 1 30.09.2008 10:37