| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2017/2/24 22:03:51 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 同上，有没有什么函数可以声明啊？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/2/25 9:11:02 | ||||
| 1楼： | if TOSVersion.Major = 10 then ShowMessage('Windows 10'); ---------------------------------------------- Delphi4Linux Delphi三层/FireDAC 技术群：734515869 http://www.cnblogs.com/rtcmw |
|||||
| 作者： |
|
2017/2/25 10:52:18 | ||||
| 2楼： | if Win32MajorVersion = 10 then ... ---------------------------------------------- https://ccrun.com |
|||||
| 作者： |
|
2017/3/13 16:20:56 | ||||
| 3楼： | 多谢楼上2位兄弟，另外@ccrun，多谢妖哥，您的ccrun.com我以前经常光顾啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/14 0:32:47 | ||||
| 4楼： | @一楼的兄弟，我的是XE版本，应该没有osversion的这个库 @妖哥，为啥我在win10的环境下，测出来的win32majorversion为6？不是10呢 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/14 8:29:47 | ||||
| 5楼： | 用柏林 TOSVersion.Major 的确是 10。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2017/3/14 10:17:54 | ||||
| 6楼： | WIN10以后如果Manifest中不写支持WIN10的话，获取版本号的API获取的是6，最新版的Delphi的manifest中写了支持WIN10，所以没问题。 老版本Delphi要自己写manifest中间加上 <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> <application> <!-- Windows 10 --> <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/> <!-- Windows 8.1 --> <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/> <!-- Windows Vista --> <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> <!-- Windows 7 --> <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/> <!-- Windows 8 --> <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/> <!--This Id value indicates the application supports Windows Vista/Server 2008 functionality --> <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" /> <!--This Id value indicates the application supports Windows 7/Server 2008 R2 functionality--> <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" /> <!--This Id value indicates the application supports Windows 8/Server 2012 functionality--> <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" /> <!-- This Id value indicates the application supports Windows Blue/Server 2012 R2 functionality--> <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" /> <!-- This Id value indicates the application supports Windows Threshold functionality--> <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" /> </application> </compatibility> ---------------------------------------------- 武稀松http://www.raysoftware.cn |
|||||
| 作者： |
|
2017/3/15 11:53:48 | ||||
| 7楼： | 多谢武大哥了。是要自己写进rc文件里面吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 12:02:04 | ||||
| 8楼： | 哎，XE2里面没有相关的内容选项，可惜了 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 12:13:39 | ||||
| 9楼： | 我记得 XE4 就有 选择 manifest 的功能了啊。 XE2 应该差不多。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2017/3/15 13:06:54 | ||||
| 9楼： | 或者还有其他方法吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 13:53:53 | ||||
| 10楼： | 我知道XE2有，但我是XE呢，不懂为啥，每次我用brcc32编译res文件的时候，老是提示：expecting resource name or resource type name ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 14:00:03 | ||||
| 11楼： | 8 楼 和 10 楼，怎么不对应呢？ 8 楼说 “XE2里面没有相关的内容选项”。 10 楼说“我知道XE2有”。 而且， 我只知道 XE4 有，XE2 不记得了。 ---------------------------------------------- (C)(P)Flying Wang |
|||||
| 作者： |
|
2017/3/15 14:12:05 | ||||
| 12楼： | 抱歉，兄弟，之前说错了。我用的是xe,我想手工生成res文件，但是不行，哎，也不知道要怎么搞 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 14:40:44 | ||||
| 13楼： | 我用d7把武大哥说的manifest编写为res文件了。但是为啥我用win32majorversion查出来的结果还是6呢？急啊 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 14:46:16 | ||||
| 14楼： | {$R w10.res} procedure TForm1.FormCreate(Sender: TObject); begin Form1.Caption :=IntToStr(Win32MajorVersion); //依然为6 end; 急啊，在线等 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/15 19:21:39 | ||||
| 15楼： | 把你的Manifest和RC贴出来看看。另外你自带的Manifest要去掉，用你自定义的 ---------------------------------------------- 武稀松http://www.raysoftware.cn |
|||||
| 作者： |
|
2017/3/15 22:58:48 | ||||
| 16楼： | Delphi早期版本中如果不能选择manifest的话，有一个办法是可以用Visual Studio打开你的项目对应的.res文件，把manifest中支持的操作系统的项目直接编辑进去，然后保存，Delphi编译的.exe中就包含了修改后的资源了 如果不添加上述项目的话，在Windows 8.1或Windows 10上，GetVersion() API返回的MajorVersion是6，MinorVersion是2，即Windows 8的内部版本号 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/3/17 8:48:40 | ||||
| 17楼： | @武大哥 w10.manifest <assembly manifestVersion="1.0"xmlns="urn:schemas-microsoft-com:asm.v1"xmlns:asmv3="urn:schemas-microsoft-com:asm.v3"> <description> my appexe </description> <trustInfoxmlns="urn:schemas-microsoft-com:asm.v3"> <security> <requestedPrivileges> <requestedExecutionLevel level="asInvoker" uiAccess="false" /> </requestedPrivileges> </security> </trustInfo> <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1"> <application> <!-- Windows 10 --> <supportedOSId="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/> <!-- Windows 8.1 --> <supportedOSId="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/> <!-- Windows Vista --> <supportedOSId="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/> <!-- Windows 7 --> <supportedOSId="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/> <!-- Windows 8 --> <supportedOSId="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/> </application> </compatibility> </assembly> w10.rc 1 24 w10.manifest brcc32 w10.rc ---------------------------------------------- - |
|||||
| 作者： |
|
2017/8/4 11:09:57 | ||||
| 18楼： | 請問您決了嗎?我用bcb6 也是有這個問題新版的XE10.2沒有 ---------------------------------------------- - |
|||||
| 作者： |
|
2017/8/9 12:18:51 | ||||
| 19楼： | 己解決如同上面所說的,但不能用bcb6.exe Debug 因為 bcb6.exe Debug 時還是錯的,但直接運行執行檔即對了,一直卡在這為何加了沒用. ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
