如何让控件外观具有XP的特点(100分)

请高手指点，如何让控件在XP下运行时，其外观有XP的特点，如进度条，复选框，下拉框
等等控件，看到FLASHGET 1.2版就实现了控件的改变。

http://mydelphi.8u8.com/kj.htm

1．建立一个叫themed.manifest的文本文件
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
name="Your.Application.Name.Here"
processorArchitecture="x86"
version="1.0.0.0"
type="win32"/>
<description>WindowsXP Shell</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="x86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>
2．再建立一个资源文件 就叫 XPStyle.RC吧！内容如下：
1 24 “themed.manifest”
用Brcc32 编译成XPStyle.RES
3. 在Delphi(2~6)中包含这个资源文件就可以了！在哪里包含？!@#$%^&amp;
我倒！
注意：这只在WindowsXP下可以,在旧的操作系统上,外观不变！你就放心的加上吧！万一有人在XP下运行你的程序呢？嗬嗬！
转载请保留文章完整性! Writen By Dext!^_^

xpmenu
http://rainsoft.diy.163.com/

正是太好了，正合我意，不知你是在哪里发现的？能告诉我吗？