加入一個FUNCTION如下： ====================================================================

procedure hideStartbutton(visi:boolean); 
  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; 

=============================================================================== 使用方法，在FORM上加入BUTTON1及BUTTON2並加入程式碼如下： BUTTON1： ============================== hideStartbutton(true); ============================== BUTTON2: ============================== hideStartbutton(false); ============================== 以上報告完畢! -------------------- DELPHI ROCK & ROLL -------------------- 發表人 - yps 於 2002/03/18 23:48:55

------
--------------------
DELPHI ROCK & ROLL
--------------------

非常感謝熱心的網友yps提供文章,謝謝您! ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

可是 我在win2000上面測試 好像button1沒有效果ㄟ

建議使用 CoolTrayIcon 元件 http://www.torry.net/vcl/system/trayicons/trayicon.zip 功能很強大 這個問題如下解決

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CoolTrayIcon1.IconVisible then
    CoolTrayIcon1.IconVisible := False
  else
    CoolTrayIcon1.IconVisible := True;
end;

------
--
Regards,
Skyer