在Delphi程序中使用XP主题风格

可以在Delphi7编写的程序中使用XP式的主题风格，为了实现在这一点，可以通过编写一个名称为 <*.exe.manifest>的文件，其内容为ITPUB个人空间 C_N)h|J \3|S
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>ITPUB个人空间^:N"`&L(E@)ihYSDG
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">ITPUB个人空间7U3Qq8B3@
    <assemblyIdentityITPUB个人空间#cO3Xi;[
        version="1.0.0.0"ITPUB个人空间F$K-@;Kz
        processorArchitecture="X86"
N4l _
Jy!n9r$T1~1l0        name="CompanyName.ProductName.YourApp"
jN.`zEl9P+m u0        type="win32"ITPUB个人空间
dF'W!hO'`F'YR
    />
7M3_*X/a$}1P0    <description>Your application description here.</description>ITPUB个人空间
`#h-[*f"Q_9R1M
    <dependency>
,f,~/L4eI\0        <dependentAssembly>ITPUB个人空间U.r4HDNp F
            <assemblyIdentity
_ j zP%wL0                type="win32"
%Ks(X6y a
Q3h-z/k0                name="Microsoft.Windows.Common-Controls"ITPUB个人空间a?,n?8Gek`Ho
ITPUB个人空间]?DK1n
version="6.0.0.0"ITPUB个人空间*R0gog)ZV??R
                processorArchitecture="X86"ITPUB个人空间f+\.K+t_fj
                publicKeyToken="6595b64144ccf1df"ITPUB个人空间B!f(TH1yhcm0L
                language="*"ITPUB个人空间)N"Tr$y\;u7_U4m
            />
)}TL-G,r;e m/P-n0        </dependentAssembly>
y0]Gp;|GVce0    </dependency>ITPUB个人空间:I!ouxLVX4O~
</assembly>将此文件与执行文件放在同一目录下，程序即会以XP主题风格显示其界面。
D['`5Lt0
Ha}_(o
^kAW0但是此方法使用上有些不方便，为了不依赖.manifest文件，可以在编写程序时即把这个文件放在资源文件中，首先关闭你的项目。制作一个a.manifest，内容同上。然后编写一个和项目同名的资源源文件，如：project.rc，内容如下：ITPUB个人空间2A(_lveS
1 24 a.manifestITPUB个人空间KL7e5T7hL
注意1和24后面都有一个空格。ITPUB个人空间-ZcZ,~N
如果已经有了资源源文件，则在文件增加上面这一行。ITPUB个人空间A,Z*\1}mG
使用brcc32 project.rc编译这个资源文件。
u)b7bMU*U ]M8m0注意，此时不要用Delphi打开你的项目，否则Delphi会自动用旧的资源文件覆盖你生成的资源文件。ITPUB个人空间k%m!ZtY6{!_7| ~


H[y6Q\.L0好了，打开你的项目，编译运行，以后就不需要再依赖.manifest文件了。ITPUB个人空间if7DYl#G!] `

]Fh
]"i6t;k3k0ITPUB个人空间v/y1]U~L/ci;X