如何通过Aero API在Delphi中改变TProgressBar控件的颜色?