Ну хз.... может с помощью хуков? Поищи на форуме
Я помню что записывал нажатия клавиш хуками. вроде как можно отловить и другие клавиши. хотя хз... насчет СaD первый пример хорошо подходит

Поднимаю тему. Только тут дополнение, не ALT-CTRL_DEL, т.к. это сделано, а ALT-TAB, точнее как его запретить для Windows'XP.

А может hook на клавиатуру? Сам я в этом не силен, но знающие люди, думаю, подскажут.

Мне кажется, что все эти клавиши и сочетания можно отключить в реестре или в политиках

зависит, конечно от ОС

Это сообщение отредактировал(а) dsergey - 27.1.2005, 11:52

Если задача - спрятать программу, (а я так думаю, задача именно такая):
1) Не подозрительно ли будет отсутствие таких замечательных клавиш? :-)
2) чтобы убрать прогу отовсюду (кроме диспетчера задач, где можно подобрать красивое имя типа "ntkernel32" чтобы руки не чесались закрыть) надо свойство Application.showmainform:=false;
3) идеальный вариант прицепляться к другим процессам типа explorer.exe только я так не пробовал

Цитата(dsergey @ 27.1.2005, 11:38)

Мне кажется, что все эти клавиши и сочетания можно отключить в реестре или в политиках

dsergey а ты не знаешь, какой ключь надо использовать.

Цитата(dsergey @ 27.1.2005, 11:52)

зависит, конечно от ОС

W'XP+SP2
Добавлено @ 18:04
Да, <Windows>+D тоже бы надо обрать как-нибудь.

У меня такой компонент был просто ставишь его на форму и настраиваешь параметры невидимости
У меня был пока жесткий не полетел...
Извени название не помню

А еще в виде паса на какомто сайте валялся...

Это сообщение отредактировал(а) W_A_K_E - 30.1.2005, 01:29

Если надо просто отключить клавишу Windows Logo в приложении, то вот, что я придумал. Проверял, - работает железно.

Выставляем KeyPreview=True

Код

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState); begin // если нажали Windows Logo эмулируем нажатие Esc if Key in [VK_LWIN,VK_RWIN]  then  keybd_event(VK_ESCAPE, 1, 0, 0); end;

Если надо запретить реакцию на Win+D, то делаем так:
кидаем на форму ApplicationEvents, и пишем обработчик события OnDeactivate

Код

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject); begin   ShowWindow(Form1.Handle,SW_SHOW);   SetForegroundWindow(Form1.Handle); end;

Вдобавок можно отменить реакцию на минимизацию формы
(взято из DRKB)

Код

type  TForm1 = class(TForm) ... private    { Private declarations }    procedure WMSysCommand(var Msg: TWMSysCommand);    message WM_SYSCOMMAND;  public    { Public declarations }  end; ... procedure TForm1.WMSysCommand; begin  if (Msg.CmdType <> SC_MINIMIZE) then inherited; end;

Цитата

Если надо запретить реакцию на Win+D, то делаем так: кидаем на форму ApplicationEvents, и пишем обработчик события OnDeactivate

ДЫМ а я когда на форму кидаю ApplicationEvents, то у меня появляется такое:

Код

procedure TForm1.ApplicationEvents1ActionExecute(Action: TBasicAction;  var Handled: Boolean); begin end;

Точнее сказать ApplicationEvents1ActionExecute, а не ApplicationEvents1Deactivate
И кстати, мне нужно именно запретить Win+D, а не для отдельных прог, чтобы не работала.

Цитата

ДЫМ а я когда на форму кидаю ApplicationEvents, то у меня появляется такое: Код  Код procedure TForm1.ApplicationEvents1ActionExecute(Action: TBasicAction; var Handled: Boolean); begin end;   Точнее сказать ApplicationEvents1ActionExecute, а не ApplicationEvents1Deactivate

Если я правильно понял, то ты дважды кликаешь на ApplicationEvents1, вот и появляется обработчик OnActionExecute. Надо в инспекторе объектов найти строчку OnDeactivate, на вкладке Events и кликать на ней.

А вообще-то, еще та оказалась задачка. Попробовал последнее средство - поставил глобальный хук на клавишу Windows и сочетание Win+D.

Одиночное нажатие блокируется начисто (что тоже немало), но для Win+D происходит следующее:
сначала все окна сворачиваются, а затем событие уже попадает в мою ловушку.
Выходит, что по-любому система сама сначала обрабатывает комбинацию Win+D, и только затем событие передается в ловушку.

Единственное, что можно сделать, так это восстановить все окна после нажатия Win+D. Получается такое мигание, сначала все сворачивается, а затем восстанавливается. Вот код:

Ловушка

Код

library DisableKey; uses  SysUtils,  Classes,  Windows,  Messages; const {handle для ловушки}  HookHandle: hHook = 0; function Key_Hook(Code: integer; wParam: word;  lParam: Longint): Longint; stdcall; export; begin  case wParam of   // Клавиша 'D'   68:    // если одновременно нажаты клавиши Windows    if (GetKeyState(VK_LWIN)<1) or (GetKeyState(VK_RWIN)<1) then       // эмулируем нажатие 'D' (все окна снова восстанавливаются)       keybd_event(68, 1, 0, 0);   // одиночные нажатия клавиш Windows   VK_LWIN,VK_RWIN:      //эмулируем нажатие Esc      keybd_event(VK_ESCAPE, 1, 0, 0);  end;//case  Result := CallNextHookEx(HookHandle, Code, wParam, lParam); end; procedure Hook(lRun:Boolean); export; stdcall; begin if lRun then  HookHandle:=SetWindowsHookEx(WH_KEYBOARD,@Key_Hook,HInstance,0) else  begin   UnhookWindowsHookEx(HookHandle);   HookHandle:=0;  end; end; exports Hook; begin end.

А это вызов Dll в модуле формы

Код

... implementation {$R *.dfm} // Ловушка procedure Hook(lRun:Boolean) stdcall; external 'DisableKey' name 'Hook'; procedure TForm1.FormCreate(Sender: TObject); begin // устанавливаем ловушку Hook(True); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin // отключаем ловушку Hook(False); end; ...

Цитата

dsergey Мне кажется, что все эти клавиши и сочетания можно отключить в реестре или в политиках

Вот еще почитай (только работает это кажется после перезагрузки) :

Цитата

Запрещение горячих клавиш с Windows Logo В конце статьи я приведу недокументированную системную политику, отключающую использование горячих клавиш Windows, которая поддерживается в Windows 9.x, Millenium, 2000 и XP. Эта системная политика блокирует обработку клавиши "Windows Logo" в горячих клавишах. Однако после того как эта политика будет активизирована, одиночное нажатие клавиши "Windows Logo", которое вызывает меню "Пуск", будет отрабатываться. Также, необходимо отметить, что с этой включенной политикой нажатие "Windows Logo" в комбинациях клавиш будет игнорироваться, остальные нажатия будут обрабатываться как обычно. Для ее активизации необходимо создать параметр "NoWinKeys" типа DWORD в следующей ветви системного реестра: "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" и установить его значение в 1. Установка параметра "NoWinKeys" в 0 или его отсутствие отключает политику. Этот параметр может храниться в реестре Windows как в разделе HKEY_CURRENT_USER, так и в разделе HKEY_LOCAL_MACHINE и иметь область действия либо на весь "Компьютер" (Local Machine), либо на "Текущего пользователя" (Current User) соответственно. Политика, имеющая область действия весь "Компьютер", хранящаяся в разделе системного реестра HKEY_LOCAL_MACHINE имеет приоритет над, политикой хранящейся в разделе HKEY_CURRENT_USER и имеющей область действия "Текущего пользователя".

Спасибо!!! Понял.

Посмотри сюда

http://forum.vingrad.ru/index.php?showtopic=41584