Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Круглый стол
  
Правила КС
>> Настройки

Фильтр вопросов
>> Новые вопросы
отслеживать по
>> Новые ответы

Избранное

Страница вопросов
Поиск по КС


Специальные проекты:
>> К л ю к в а
>> Г о л о в о л о м к и

Вопрос №

Задать вопрос
Off-topic вопросы

Помощь

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
  
 
Во Флориде и в Королевстве сейчас  00:28[Войти] | [Зарегистрироваться]
Ответ на вопрос № 46250

27-10-2006 10:37
Здравствуйте, уважаемые!

  Возникла такая потребность как запретить глобально нажимать клавишу F2. Т.е. есть несколь приложений под Windows и в них нажатие F2 открывает скрытые функции настройки. А мне надо, чтобы когда пользователь нажимал эту кнопку, то в винде вообще ничего не проиходило, либо появлялось моё сообщения, а функции связанные с работой этой кнопки в программах, да и вообще нигде не выполнялись. Можно ли сделать это или нет?

PS: Я понимаю конечно можно выковырять эту клавишу из клавиатуры, но всё же хотелось более культурно поступить.

[+] Добавить в избранные вопросы

Отслеживать ответы на этот вопрос по RSS

Ответы:


Уважаемые авторы вопросов! Большая просьба сообщить о результатах решения проблемы на этой странице.
Иначе, следящие за обсуждением, возможно имеющие аналогичные проблемы, не получают ясного представления об их решении. А авторы ответов не получают обратной связи. Что можно расценивать, как проявление неуважения к отвечающим от автора вопроса.

29-10-2006 08:17 | Сообщение от автора вопроса
Спасибо большое буду знать.

28-10-2006 14:20
А средствами API это не сделать?

RegisterHotKey отбирает клавишу глобально. Действует в течение жизни приложения, зарегистрировавшего для себя горячую клавишу.

28-10-2006 06:38
А средствами API это не сделать?
Можно хук поставить. Например вот такой:

program CapsKill;
uses
  Windows;

type
  LPKBDLLHOOKSTRUCT=^KBDLLHOOKSTRUCT;
  tagKBDLLHOOKSTRUCT=record
    vkCode:DWORD;
    scanCode:DWORD;
    flags:DWORD;
    time:DWORD;
    dwExtraInfo:Pointer;
  end;
  KBDLLHOOKSTRUCT=tagKBDLLHOOKSTRUCT;
  TKbDllHookStruct=KBDLLHOOKSTRUCT;
  PKbDllHookStruct=LPKBDLLHOOKSTRUCT;

const
  ProgID='06B49C00-BB34-4713-B9CD-DE1EB23EEBFE';

const
  LLKHF_EXTENDED=(KF_EXTENDED shr 8);
  LLKHF_INJECTED=$00000010;
  LLKHF_ALTDOWN=(KF_ALTDOWN shr 8);
  LLKHF_UP=(KF_UP shr 8);
  LLMHF_INJECTED=$00000001;
  WH_KEYBOARD_LL=13;

var
  HookHandle:HHOOK;

function KbdLLHookProc(Code:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT stdcall;
var
  Input:TInput;
begin
  with PKbDllHookStruct(lParam)^ do
    if (Code in [HC_ACTION])and(vkCode=VK_CAPITAL) then begin
      if flags and LLKHF_ALTDOWN=0 then begin
        FillChar(Input,SizeOf(Input),0);
        Input.Itype:=INPUT_KEYBOARD;
        Input.ki.wVk:=VK_TAB;
        Input.ki.wScan:=$F;
        Input.ki.dwFlags:=KEYEVENTF_KEYUP*Ord(flags and LLKHF_UP<>0)or KEYEVENTF_EXTENDEDKEY*Ord(flags and LLKHF_EXTENDED<>0);
        SendInput(1,Input,SizeOf(Input));
      end;
      Result:=1;
      Exit;
    end;
  Result:=CallNextHookEx(HookHandle,Code,wParam,lParam)
end;

var
  Msg:TMsg;
begin
  if OpenMutex(MUTEX_ALL_ACCESS,False,ProgID)<>0 then begin
    MessageBox(0,'Already run.',nil,MB_OK);
    Exit;
  end;
  CreateMutex(nil,False,ProgID);
  SetPriorityClass(GetCurrentProcess,REALTIME_PRIORITY_CLASS);
  SetThreadPriority(GetCurrentThread,THREAD_PRIORITY_TIME_CRITICAL);
  HookHandle:=SetWindowsHookEx(WH_KEYBOARD_LL,@KbdLLHookProc,hInstance,0);
  if HookHandle<>0 then begin
    while GetMessage(Msg,0,0,0) do begin
    end;
    UnhookWindowsHookEx(HookHandle);
  end;
end.

Убивает CapsLock (точнее на Tab заменяет).

27-10-2006 14:34 | Сообщение от автора вопроса
Спасибо огромное крайне полезная софтина.

Всё же интересно как программисту: А средствами API это не сделать?

27-10-2006 11:23
Есть такой волшебный ключик HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout\Scancode Map, с его помощью можно переназначать практически любые клавиши, в том числе блокировать их. Можно воспользоваться готовой программой типа "KeyTweak" или создать таблицу вручную.

Добавьте свое cообщение

Вашe имя:  [Войти]
Ваш адрес (e-mail):На Королевстве все адреса защищаются от спам-роботов
контрольный вопрос:
Кто съел Красную шапочку?
в качестве ответа на вопрос или загадку следует давать только одно слово в именительном падеже и именно в такой форме, как оно используется в оригинале.
Надоело отвечать на странные вопросы? Зарегистрируйтесь на сайте.
Тип сообщения:
Текст:
Жирный шрифт  Наклонный шрифт  Подчеркнутый шрифт  Выравнивание по центру  Список  Заголовок  Разделительная линия  Код  Маленький шрифт  Крупный шрифт  Цитирование блока текста  Строчное цитирование
  • вопрос Круглого стола № XXX

  • вопрос № YYY в тесте № XXX Рыцарской Квинтаны

  • сообщение № YYY в теме № XXX Базарной площади
  • обсуждение темы № YYY Базарной площади
  •  
     Правила оформления сообщений на Королевстве

    Страница избранных вопросов Круглого стола.
      
    Время на сайте: GMT минус 5 часов

    Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
    Функция может не работать в некоторых версиях броузеров.

    Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
    Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

     
    © При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
    Все используемые на сайте торговые марки являются собственностью их производителей.

    Яндекс цитирования