windows xp的窗口界面怎么实现?
解决方案 »
- 万分着急 Delphi 与声音 想连就报错 怎么回事 在线等
- ◆◆◆◆转贴:《程序员的十种级别》◆◆◆◆
- 隐藏进程.......决命送分500
- 如何判断一串字符最后的一个“/”是第几个?
- 我想程序运行之前,显示一个登录窗口,可是出错,怎么回事呢?
- 高分请教使用webbrowser实现多线程单页面浏览器
- 帮我看一个delphi 调用 idftp 让FTP上传的例子,错误在哪??
- 我在调用DCOM时,为什么总是出现"类没有注册"?请高手解答,大大加分~!
- 程序运行时,如何控制TDBChart?
- 快来帮我啊
- ▲▲如何判断回滚条游标的位置(在bottom、top、middle、left、right)?
- 主页推荐
作者: 评价: 上站日期:
内容说明:
来源: --------------------------------------------------------------------------------
要在自己的程序中实现Windows XP的视觉效果,就要给程序增加一个说明文件。这个说明文件可以是程序的资源文件,也可以是同路径下的文件。{
要在自己的程序中实现Windows XP的视觉效果,就要给程序增加一个说明文件。
这个说明文件可以是程序的资源文件,也可以是同路径下的文件。
这个说明文件是一个XML文件。它让Windows XP在链接数据时决定使用哪种版本的comctl32.dll。
这个XML文件含有你编写的程序的信息和使用的comctrl32.dll版本信息。
下面介绍如何
创建说明文件,
创建XP资源文件,
包含到应用程序中。
步骤1-4介绍如何创建这些文件。文末可以下载示例。}
(1) 将下面的XML代码拷贝到文本编辑器:< ?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="Microsoft.Windows.MyApplication"
type="win32"
/>
< description> Your Application Description< /description>
< dependency>
< dependentAssembly>
< assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="4.0.0.0"
processorArchitecture="X86"
publicKeyToken="4495b64144ccf1df"
language="*"
/>
< /dependentAssembly>
< /dependency>
< /assembly> (2) 将文中description标记的内容和assemblyIdentity标记的"name"改写成你自己的内容。然后将文件存为:WinXP.txt。(3) 创建一个资源文件来指向上面的文件,资源文件名为WinXP.rc:
1 24 "WinXP.txt" 。
(4)
现在要用Delphi的资源编译器(brcc32.exe)来编译WinXP.rc。
在命令行键入指令:
brcc32 WinXP.rc
编译之后生成WinXP.res文件。
(5) 在应用程序中包含这个资源文件,并在{$R *.DFM}之后注明{$R WinXP.res}。(6) 编译程序并运行。(7)
测试程序是否正常。
注意,有些组件,如TGroupBox, TSpeedButton等不支持XP模式。
如果使用TListView组件,请阅读《TListView在XP中的补丁程序》
终于可以不用任何控件作出XP风格的程序了
作者: 评价: 上站日期:
内容说明:
来源: --------------------------------------------------------------------------------
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.RES3. 在Delphi(2~6)中包含这个资源文件就可以了!在哪里包含?!@#$%^& 我倒!注意:这只在WindowsXP下可以,在旧的操作系统上,外观不变!你就放心的加上吧!万一有人在XP下运行你的程序呢?嗬嗬
设置鼠标在整个屏幕的风格:
设置:
h:=loadcursorfromfile('c:\windows\desktop\hand.cur');
setsystemcursor(h,ocr_normal);
恢复:
SystemParametersinfo(SPI_SETCURSORS,0,nil,SPIF_SENDCHANGE);