Блокировка клавиш Win+D

[sergei92]

Подскажите пожалуйста как в c++builder 6 запретить нажатие клавиши Win+D тоесть чтобы скомпилированную форму нельзя было свернуть

[Stilet]

Попробуй поставить на нее горячую клавишу. Функция RegisterHotKey().
Или придется ставить хук функцией SetWindowsHookEx()

[sergei92]

Stilet если можно, то пожалуйста продемонстрируйте примером использование "хук" для WIN+D.За ранее большое спасибо.

[Krasiosoft]

Через RegisterHotKey() в Windows 7 не работает:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        RegisterHotKey(Handle,0,MOD_WIN,'D');
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
        if (Msg.message == WM_HOTKEY){
                if (Msg.wParam == 0) ShowMessage("WIN+D");
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
        UnregisterHotKey(Handle,0);
}

[Stilet]

Примера у меня нет. Я хуками не увлекаюсь. Однако вот тут: http://delphiworld.narod.ru/base/glo...oard_hook.html
Вполне примерно описано.

[Krasiosoft]

SetWindowsHookEx работает отлично:

HHOOK mainKeyboardHook = 0;
bool leftWinState = false;
bool rightWinState = false;

LRESULT CALLBACK MainKeyboardProc(int code, WPARAM wParam, LPARAM lParam)
{
        if ( code == HC_ACTION ){
                tagKBDLLHOOKSTRUCT* kbhs = (tagKBDLLHOOKSTRUCT*)lParam;

                // save left win state
                if( kbhs->vkCode == VK_LWIN ){
                        leftWinState = (wParam==WM_KEYDOWN)?true:false;
                }

                // save right win state
                if( kbhs->vkCode == VK_RWIN ){
                        rightWinState = (wParam==WM_KEYDOWN)?true:false;
                }

                if( kbhs->vkCode == 'D'&&( leftWinState || rightWinState) ) return 1;
        }

        return CallNextHookEx(mainKeyboardHook, code, wParam, lParam);
}

void __fastcall TForm1::Button1Click(TObject *Sender){
        // set hook
        if(!mainKeyboardHook) mainKeyboardHook = SetWindowsHookEx(WH_KEYBOARD_LL, (HOOKPROC)MainKeyboardProc,  GetModuleHandle(NULL),0);
        if(!mainKeyboardHook) MessageBox(0,"Не смог установить KeyboardHook","Ошибка",0);
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        // unhook
        if(mainKeyboardHook){
                UnhookWindowsHookEx(mainKeyboardHook);
                mainKeyboardHook=0;
        }
}

[Stilet]

Ой! Я все опять перепутал!!! Опять на Делфи дал по привычке ссыль.

[Krasiosoft]

Это же WinAPI. Тут и так все понятно.