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

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

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

Ответ
 
Опции темы
Старый 06.11.2018, 12:58   #1
Maetsky
 
Регистрация: 14.03.2011
Сообщений: 7
Репутация: 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\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,343
Репутация: 519
По умолчанию

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

Последний раз редактировалось NetSpace; 06.11.2018 в 21:39.
NetSpace вне форума   Ответить с цитированием
Старый 06.11.2018, 13:55   #3
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 17,102
Репутация: 3316

icq: 512-765
skype: alexp.frl
По умолчанию

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

Хорошие люди посоветовали ссылку.
Нашёл, но не всё. Ниже кнопки по порядку, появляющиеся по 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
Сообщений: 7
Репутация: 10
По умолчанию

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

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


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

icq: 216409213
По умолчанию

Не спасет. Сторонних менеджеров процессов кучка и на реестр они реагируют. Да и остальные кнопки мало кто из продвинутых пользователей используют.
__________________
Запомните раз и навсегда: помочь != "решите за меня"!
p51x вне форума   Ответить с цитированием
Старый 07.11.2018, 11:23   #8
Maetsky
 
Регистрация: 14.03.2011
Сообщений: 7
Репутация: 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\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 вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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


07:07.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru