禁用Vista Aero上的进度条动画

我正在使用Delphi 2009 VCL TProgressBar作为一种"空/满"仪表.

在Vista上,启用Aero主题后,会有一个与之关联的动画,这对于测量仪来说很烦人且不合适.

是否有任何方法可以禁用此功能(不是通过调整用户的主题设置!)来阻止此控件上的动画？

为了澄清,我想要的东西基本上与Windows资源管理器中的"磁盘空间使用"仪表完全相同.没有动画,但仍然有漂亮的边框和阴影效果.

更新:

我知道我需要一个"米",而不是一个真正的进度条.如何使用标准的Windows进度条控件实现主题仪表？

1> mghie..：

---

根据进度条的Vista UI指南,您不应该为此目的使用TProgressBar,它指出:

仅使用进度条进度.使用米来表示与进度无关的百分比.

有许多针对过程自动化应用程序等的第三方组件(例如Abakus VCL),您可以使用其中一个控件吗？

---

理解 - 但它说:"米:这个模式不是进度条,但它是使用进度条控件实现的." 如何使用进度条控件实现这样的"Meter"？至于Abakus组件,我的应用程序应该看起来像它在过去十年左右的设计.

2> Tim Knipe..：

---

您可以尝试关闭该控件的主题;

SetWindowTheme(ProgressBar.Handle, ' ', ' ');