鎖住任務欄

var  
     hTray   :   THandle;  
 begin  
     hTray   :=   FindWindow('shell_traywnd',   nil);  
     if   hTray   >   0   then  
     begin  
         EnableWindow(hTray,   false);     //恢复设置成true就可以  
     end;  
 end;