XP风格

创建一个文本格式的文件（假设名为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
重新构建。