创建一个文本格式的文件（假设名为xp.manifest），内容如下：

<?xml   version   =   "1.0 "   encoding   =   "UTF-8 "   standalone   =   "yes "?>

<assembly   xmlns   = "urn:schemas-microsoft-com:asm.v1 "   manifestVersion   =   "1.0 ">

<assemblyIdentity

    version= "1.0.0.0 "

    processorArchitecture= "X86 "

    name= "MS.WinXP.xp.exe "

    type= "win32 "

/>

<description> WinXP </description>

<dependency>

    <dependentAssembly>

        <assemblyIdentity

              type= "win32 "

              name= "Microsoft.Windows.Common-Controls "

              version= "6.0.0.0 "

              processorArchitecture= "X86 "

              publicKeyToken= "6595b64144ccf1df "

              language= "* "

        />

    </dependentAssembly>

</dependency>

</assembly>

然后写一个资源文件（.rc文件），增加一个类型是24编号是1的资源：

1   24   "xp.manifest "

资源文件加入到程序中   不过此法要到XP才效

还一个办法，尤其是对于已经编译完成，不方便重新编译的更方便。

把楼上的那段xml文档保存下来。比如xp.manifest,

如果你的可执行文件是   test.exe

那么你把这个xml文件改名字为test.exe.manifest   ；并且和这个exe放在一个目录下，这样，你在执行这个文件，他同样会变成xp风格的。

其实windowxp里面很多文件都是利用了这个附加的xxx.manifest   ，有了他就是xp   风格，如果你把xp里面的这类型文件都删除了，你的xp就是传统风格了。

 

Delphi2010编译的程序控件默认是XP风格，如何取消XP风格?

->Application->去掉Enable runtime themes

重新构建。