Buscar

Habilitar/ desabilitar al+tab (win xp)

Código

Procedure EnableAltTab(YesNo: Boolean);
var
I:Integer;
begin
   case YesNo of
      True:
         begin
            UnRegisterHotKey(0, I);
         end;

      False:
         begin
            I := GlobalAddAtom('Hotkey1');
            RegisterHotKey(0, I, MOD_ALT, VK_TAB);
         end;
   end;
end;

//usando

EnableAltTab(True); //Enable

EnableAltTab(False); //Desable

 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 25/06/07
Por: Abel André Da Silva
Visualizada: 2029 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009