Como bloquear a tecla Windows?
Olá, beleza?
Estou atrás de uma função que bloqueie as teclas do Windows, ou seja, aquelas que ativam o menu iniciar. Eu sei que dá pra mapeá-las no onKeyDown, por exemplo, com mas como fazer para cancelar?
Se alguém souber, fico agradecido.
Até mais!
Estou atrás de uma função que bloqueie as teclas do Windows, ou seja, aquelas que ativam o menu iniciar. Eu sei que dá pra mapeá-las no onKeyDown, por exemplo, com
if Key = VK_LWIN then
Se alguém souber, fico agradecido.
Até mais!
Accessviolationataddressf
Curtidas 0
Respostas
Tatuweb
04/01/2005
Nessa [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=24191&start=23]thread[/url] a dois exemplos diferentes para bloquear/desbloquear a tecla Win.
GOSTEI 0
J-araujo
04/01/2005
Olá.
Veja se este código ajuda também.
Procedure EscIniciar (Visible:Boolean);
Var taskbarhandle,
Buttonhandle : HWND;
Begin
Taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
Buttonhandle := GetWindow (taskbarhandle, GW_CHILD);
If visible = true then
Begin
ShowWindow (buttonhandle, SW_RESTORE); {mostra o botão}
End
Else
Begin
ShowWindow (buttonhandle, SW_HIDE); {esconde o botão}
End;
End;
t+ :D
Veja se este código ajuda também.
Procedure EscIniciar (Visible:Boolean);
Var taskbarhandle,
Buttonhandle : HWND;
Begin
Taskbarhandle := FindWindow(´Shell_TrayWnd´, nil);
Buttonhandle := GetWindow (taskbarhandle, GW_CHILD);
If visible = true then
Begin
ShowWindow (buttonhandle, SW_RESTORE); {mostra o botão}
End
Else
Begin
ShowWindow (buttonhandle, SW_HIDE); {esconde o botão}
End;
End;
t+ :D
GOSTEI 0