|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Народ ХЕЕЕЛП Надо срочно заблокировать
Народ ХЕЕЕЛП Надо срочно заблокировать CTRL-ALT-DEL,ALT-TAB,
WIN-D |
#2
|
||||
|
||||
просто создай на форме ActionControl, добавь несколько Actions, и к каждой из них добавь в горячие клавиши свои сочетания клавишь.
Кому я должен - всем прощаю!!!! |
#3
|
||||
|
||||
Цитата:
Код:
procedure DisableTaskMgr(Disable: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if Disable then reg.WriteString('DisableTaskMgr', '1') //блокиреум else reg.WriteString('DisableTaskMgr', '0'); //разблокируем reg.CloseKey; end; |
#4
|
||||
|
||||
Цитата:
Неефективно используемые строчки! Так намного проще: Код:
procedure DisableTaskMgr(Disable: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\\Policies\System', True); if Disable then reg.WriteString('DisableTaskMgr', '1') //блокиреум else reg.WriteString('DisableTaskMgr', '0'); //разблокируем reg.CloseKey; end; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#5
|
||||
|
||||
Yurk@ ну или так как сделал ты, я просто для примера, а дальше ему решать уже как записать...
|
#6
|
||||
|
||||
Не пробовал, отключение ALT-TAB http://www.delphisources.ru/pages/fa...e_alt_tab.html
|
#7
|
|||
|
|||
Для делфи 5 тоже прокатит????
|
#8
|
||||
|
||||
Цитата:
|