procedure hideStartbutton(visi:boolean);  

{visi 为 True 则显示，False则隐藏}

Var  

 Tray, Child : hWnd;  

 C : Array[0..127] of Char;  

 S : String;  

Begin  

 Tray := FindWindow('Shell_TrayWnd', NIL);  

 Child := GetWindow(Tray, GW_CHILD);  

 While Child <> 0 do

 Begin  

   If GetClassName(Child, C, SizeOf(C)) > 0 Then

   Begin  

     S := StrPAS(C);  

     If UpperCase(S) = 'TRAYNOTIFYWND' then

     begin  

       If Visi then ShowWindow(Child, 1)  

               else ShowWindow(Child, 0);  

     end;  

   End;  

   Child := GetWindow(Child, GW_HWNDNEXT);  

 End;  

End;