Fórum Como Desabilitar a Tecla do Windows (WinKey) ? #187947
11/10/2003
0
Gostaria, se possivel, alguem cola-se aqui o fonte da rotina que desabilita essa tecla.
Agradeço desde já. :idea:
:arrow:
[color=red:dd3b4ba780][b:dd3b4ba780]oTTo Husckows[/b:dd3b4ba780][/color:dd3b4ba780] :shock:
Seek
Curtir tópico
+ 0Posts
11/10/2003
Marlon Spiess
posso adiantar esse código aqui
Desabilitar Teclas Ctrl+Alt+Del
Ai vai um codigo que peguei no site da Borland que trava as teclas
(Ctrl+Alt+Del),(Alt+Tab), (Ctrl+Esc)
var
OldValue : LongBool;
begin
{liga a trava}
SystemParametersInfo(97, Word(True), @OldValue, 0);
{desliga a trava}
SystemParametersInfo(97, Word(False), @OldValue, 0);
end;
Espero ter ajudado
Boa Sorte
Gostei + 0
11/10/2003
Seek
a que eu quero é a que desabilita a tecla da janelinha do windows(que fica entre as teclas Ctrl & Alt).
:(
Gostei + 0
11/10/2003
Josecarlosjr_atc
Cara posso te dar uma ajuda, tem alguns eventos como onkeydown
que usa uma variável de entrada chamada Key e vc deve fazer uma comparação se é a tecla pressionada, exemplo:
Key = #13 Or Key = 27
Você pode tentar algo desse tipo que além de ser números significativos para a teclas do teclado são constantes do Delphi, exemplo:
Key = vk_Menu <- essa constantes da tecla Windows.
Não sei se ajudei muito, más acho que abri sua cabeça para o assunto.
Gostei + 0
11/10/2003
Seek
alterei a propriedade keypress do form para true e adicionei a seguinte rotina no evento OnKeyPress do form1.
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(vk_menu) then
key := #0;
end;
e a teclinha continua funcionando.
Alguem mais tem dicas?? todas sao bem vindas...
Gostei + 0
11/10/2003
Beppe
Ataliba
Gostei + 0
11/10/2003
Seek
Gostei + 0
11/10/2003
Beppe
Ataliba
Gostei + 0
11/10/2003
Seek
Gostei + 0
12/10/2003
Gymmer
paratravar:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1,0, 0);
para destravar:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0,0, 0);
pra mim funciona blz!
Gostei + 0
12/10/2003
Beppe
Ataliba
Gostei + 0
13/10/2003
Seek
Ataliba, obrigado pela sua ajuda tb.
beijos pra todos(as)
ass. oTTo Husckows :D
Gostei + 0
13/10/2003
Beppe
No WinXP, esse truque não funciona. Acho que no Me e 200 tb não.
Ataliba
Gostei + 0
13/10/2003
Seek
Se alguem souber, por favor insira o codigo aqui, é feito uma frase que eu vi aki o forum:
Se voce pergunta é bobo por 5 minutos, se nao pergunto é bobo a vida toda. :idea:
Gostei + 0
29/10/2003
Otto
usando o programa que informa o codigo ascii das telcas pressionadas, sei que é 91. a const é vk_menu
coloquei no onkeypress do form
if key = #91 then
key :=0;
e alterei a prorpiedade KeyPreview do form para true, mesmo assim nao funcionou. a rotina la de cima
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1,0, 0);
funfou no win98 e ME, mas no xp e 2000 nao.
Alguem saberia a que desabilite a do xp e 2000 :?: :idea:
Gostei + 0
29/10/2003
Otto
91 nao, vi no delphi que é 18
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)