Delphi 动态最小化到状态栏图标区中.rar下载

begin//Delphi 动态最小化到状态栏图标区中 　　 HTray := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'TrayNotifyWnd', nil); 　　 if hTray <> 0 then 　　 begin 　　 FRect := form1.BoundsRect; 　　 GetWindowRect(HTray, TrayRect); 　　 if not DrawAnimatedRects(form1.Handle, IDANI_CAPTION, FRect, TrayRect) then 　　 begin 　　 MessageDlg('动画效果失败。', mtError, [mbOK], 0); 　　 end; 　　 end 　　 else 　　 begin 　　 MessageDlg('不能获取托盘的句柄。', mtError, [mbOK], 0); 　　 end; 　　end;