bloquear tecla winkey no XP

[Guest Beto Will]

Gostaria de saber como faço para desativar a tecla winkey atraves de codigo no delphi, estou usando o win xp, será que alguém pode me ajudar

[Jhonas]

Windows via teclado

Os teclados com aquela tecla (winkey) ou melhor, a tecla com uma janelinha do windows pode ter muitas funções, veja abaixo:

Abrir o Menu Iniciar (Winkey)

Mostrar a caixa Executar (Winkey + R)

Minimizar tudo o que está aberto (Winkey + M)

Desfazer minimizar tudo (Winkey + Shift + M)

Iniciar a Ajuda (Winkey + F1)

Iniciar o Explorer (Winkey + E)

Iniciar a pesquisar arquivos ou pastas (Winkey + F)

Iniciar a caixa de pesquisa de computadores (CTRL + Winkey + F)

Fazer o ciclo entre as aplicações (Winkey + Tab)

Mostrar o painel de controle de vídeo (Winkey + Break).

Mostrar esconder o desktop (Winkey + D)

Mostrar as propriedades da impressora. (Winkey + P)

Mostras as propriedades do mouse (Winkey + I)

Logoff do windows (Winkey + L)

Mostras as propriedades do teclado (Winkey + K)

para desativar ou travar:

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1,0, 0);

para ativar ou destravar:

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0,0, 0);

Outra dica sobre teclas:

Como descobrir o código de uma tecla pressionada?

Na maioria dos componentes existem eventos que ocorrem quando o teclado é acionado

Ex:

Num Form existe os eventos:

1º OnKeyDown => Quando a tecla é apertada.

2º OnKeyUp => Quando a tecla é solta

3º OnKeyPress => Quando a tecla e apertada.

Os três devolvem uma variável chamada Key;

Os dois primeiros Key é uma word, no terceiro Key é um char.

Para você saber o nº de um tecla é só colocar no evento

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:TShiftState);

Begin

ShowMessage('O nº da tecla: '+Char(ORD(Key))+' é => '+IntToStr(key));

End;

Assim você sabe o valor de cada tecla e pode testar se ela foi acionada.

O legal não é testar este valor e sim trabalhar com a Virtual Key Code

Exemplo:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift:

TShiftState);

Begin

IF Key=VK_Return Then ShowMessage('Você apertou o enter');

End;

Esse VK_Return é da Virtual Key Code, você terá que pesquisar no Help, Segue abaixo as outras teclas:

VK_LBUTTON Left mouse button

VK_RBUTTON Right mouse button

VK_CANCEL Control+Break

VK_MBUTTON Middle mouse button

VK_BACK Backspace key

VK_TAB Tab key

VK_CLEAR Clear key

VK_RETURN Enter key

VK_SHIFT Shift key

VK_CONTROL Ctrl key

VK_MENU Alt key

VK_PAUSE Pause key

VK_CAPITAL Caps Lock key

VK_KANA Used with IME

VK_HANGUL Used with IME

VK_JUNJA Used with IME

VK_FINAL Used with IME

VK_HANJA Used with IME

VK_KANJI Used with IME

VK_CONVERT Used with IME

VK_NONCONVERT Used with IME

VK_ACCEPT Used with IME

VK_MODECHANGE Used with IME

VK_ESCAPE Esc key

VK_SPACE Space bar

VK_PRIOR Page Up key

VK_NEXT Page Down key

VK_END End key

VK_HOME Home key

VK_LEFT Left Arrow key

VK_UP Up Arrow key

VK_RIGHT Right Arrow key

VK_DOWN Down Arrow key

VK_SELECT Select key

VK_PRINT Print key (keyboard-specific)

VK_EXECUTE Execute key

VK_SNAPSHOT Print Screen key

VK_INSERT Insert key

VK_DELETE Delete key

VK_HELP Help key

VK_LWIN Left Windows key (Microsoft keyboard)

VK_RWIN Right Windows key (Microsoft keyboard)

VK_APPS Applications key (Microsoft keyboard)

VK_NUMPAD0 0 key (numeric keypad)

VK_NUMPAD1 1 key (numeric keypad)

VK_NUMPAD2 2 key (numeric keypad)

VK_NUMPAD3 3 key (numeric keypad)

VK_NUMPAD4 4 key (numeric keypad)

VK_NUMPAD5 5 key (numeric keypad)

VK_NUMPAD6 6 key (numeric keypad)

VK_NUMPAD7 7 key (numeric keypad)

VK_NUMPAD8 8 key (numeric keypad)

VK_NUMPAD9 9 key (numeric keypad)

VK_MULTIPLY Multiply key (numeric keypad)

VK_ADD Add key (numeric keypad)

VK_SEPARATOR Separator key (numeric keypad)

VK_SUBTRACT Subtract key (numeric keypad)

VK_DECIMAL Decimal key (numeric keypad)

VK_DIVIDE Divide key (numeric keypad)

VK_F1 F1 key

VK_F2 F2 key

VK_F3 F3 key

VK_F4 F4 key

VK_F5 F5 key

VK_F6 F6 key

VK_F7 F7 key

VK_F8 F8 key

VK_F9 F9 key

VK_F10 F10 key

VK_F11 F11 key

VK_F12 F12 key

VK_F13 F13 key

VK_F14 F14 key

VK_F15 F15 key

VK_F16 F16 key

VK_F17 F17 key

VK_F18 F18 key

VK_F19 F19 key

VK_F20 F20 key

VK_F21 F21 key

VK_F22 F22 key

VK_F23 F23 key

VK_F24 F24 key

VK_NUMLOCK Num Lock key

VK_SCROLL Scroll Lock key

VK_LSHIFT Left Shift key (only used with GetAsyncKeyState and GetKeyState)

VK_RSHIFT Right Shift key (only used with GetAsyncKeyState and GetKeyState)

VK_LCONTROL Left Ctrl key (only used with GetAsyncKeyState and GetKeyState)

VK_RCONTROL Right Ctrl key (only used with GetAsyncKeyState and GetKeyState)

VK_LMENU Left Alt key (only used with GetAsyncKeyState and GetKeyState)

VK_RMENU Right Alt key (only used with GetAsyncKeyState and GetKeyState)

VK_PROCESSKEY Process key

VK_ATTN Attn key

VK_CRSEL CrSel key

VK_EXSEL ExSel key

VK_EREOF Erase EOF key

VK_PLAY Play key

VK_ZOOM Zoom key

VK_NONAME Reserved for future use

VK_PA1 PA1 key

VK_OEM_CLEAR Clear key

{Dica retirada da Lista de Discussão Delphi-br}

abraço

[Felipee]

http://www.activedelphi.com.br/forum/viewt...ce6d58ef2cc1f5b

da uma lida neste tópico