Delphi dicas

Habilitar/ desabilitar al+tab (win xp)

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

por : Abel André Da Silva