Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Блокировка Alt+F4 и Alt+Ctrl+Del [D6]


Prior ©   (2003-04-13 11:45:00) 

Как блокировать Alt+F4 и Alt+Ctrl+Del. Я слышал что надо перехватить, но как? Заранее спасибо. (Личное спасибо Song за прошлый вопрос)


ddenisv   (2003-04-15 20:14:00) [1]

Лучше вот-так:


procedure NTTaskMgr ( Enabled : Boolean );
Var
Reg : TRegistry;
Begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey ( "Software\Microsoft\Windows\CurrentVersion\Policies\System", True );
Reg.WriteInteger ( "DisableTaskMgr", 1-byte(Flag) );
Reg.CloseKey;
Reg.Free;
End;


ddenisv   (2003-04-15 20:08:00) [2]

Несаглошусь с Song:
Вот этоим можно включать-выключать TaskManager

procedure NTTaskMgr ( Enabled : Boolean );
Var
Reg : TRegistry;
Flag : Integer;
Begin
Case Enabled Of
True : Flag := 0;
False : Flag := 1;
End;
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey ( "Software\Microsoft\Windows\CurrentVersion\Policies\System", True );
Reg.WriteInteger ( "DisableTaskMgr", Flag );
Reg.CloseKey;
Reg.Free;
End;


LEON   (2003-04-14 22:36:00) [3]

RegisterHotKey()


LEON   (2003-04-14 22:36:00) [4]

RegisterHotKey


PaRL.   (2003-04-13 14:06:00) [5]

Даже если хук ты не знаешь, то можно зарегестрировать Alt-F4 как горячую клавишу - в хелпе посмотри. RegistryHotKey() вроде называется.


Song   (2003-04-13 12:08:00) [6]

Alt+F4 - через хук.
CAD - только в w9x


Наверх

Титульная страница Поиск, карта сайта Написать письмо