Bloquear Atalhos do Windows (Windows E)
Alguém sabe como bloquear, através do Delphi, que o usuários acesse o Windows Explorer pelo teclado (teclas Windows+E)?
Obrigado.
Obrigado.
Armindo
Curtidas 0
Respostas
Scotchtriplo
08/01/2007
Tenta isso. coloque o propriedade do Form KeyPreview = True.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_LWIN then
begin
BlockInput(True);
Timer1.Enabled:=True;
end;
if Key = VK_RWIN then
begin
BlockInput(True);
Timer1.Enabled:=True;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BlockInput(False);
Timer1.Enabled:=False;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_LWIN then
begin
BlockInput(True);
Timer1.Enabled:=True;
end;
if Key = VK_RWIN then
begin
BlockInput(True);
Timer1.Enabled:=True;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
BlockInput(False);
Timer1.Enabled:=False;
end;
GOSTEI 0