Disable Alt-Tab  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 07/07/00

Tip accessed 508 times

 



Disable it:



 procedure TForm1.Button1Click(Sender: TObject);
 var
   Nada : integer;
 begin
   Nada:=0;
   {DesHabilitar ALT-TAB}
   {Disable ALT-TAB}
   SystemParametersInfo( SPI_SETFASTTASKSWITCH, 1, @Nada, 0);
 end;





Enable it:



 procedure TForm1.Button1Click(Sender: TObject);
 var
   Nada : integer;
 begin
   Nada:=0;
   {DesHabilitar ALT-TAB}
   {Disable ALT-TAB}
   SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, @Nada, 0);
 end;