DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: hcxsoftware
今日帖子: 1
在线用户: 1
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 xiaobaosoft (小宝软件) ▲△△△△ -
注册会员
2021/9/13 13:36:31
标题:
RAD 11编译程序 彻底无法在XP 2003 系统运行 浏览:1462
加入我的收藏
楼主: 编译32的一样不行

XP 刚刚实测不可以。
----------------------------------------------
-
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/9/13 13:50:23
1楼: 那太悲剧了,
不是个好版本.
----------------------------------------------
-
作者:
男 sczhyq (旺财) ▲▲▲▲▲ -
注册会员
2021/9/13 13:50:38
1楼: RAD 10.4 也不一定,我有—个,在一台2003可以运行,另一台2003则不行
----------------------------------------------
我84砖家
作者:
男 xiaobaosoft (小宝软件) ▲△△△△ -
注册会员
2021/9/13 13:59:58
2楼: @sczhyq

空窗口没问题 10.4
----------------------------------------------
-
作者:
男 vkow (vkow) ★☆☆☆☆ -
普通会员
2021/9/13 14:13:57
3楼: 新建默认VCL项目,运行不了。
此帖子包含附件:
JPEG 图像
大小:141.7K
----------------------------------------------
-
作者:
男 vkow (vkow) ★☆☆☆☆ -
普通会员
2021/9/13 14:14:48
4楼: 顺便发现个小bug。无伤大雅的。
此帖子包含附件:
JPEG 图像
大小:269.8K
----------------------------------------------
-
作者:
男 szyourname (szyourname) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 15:26:25
5楼: 哈哈,又是一波全民找Bug游戏
----------------------------------------------
-
作者:
男 vkow (vkow) ★☆☆☆☆ -
普通会员
2021/9/13 15:30:09
6楼: 哈哈,又发现个小bug,有点儿恶心。

非全屏的情况下,win10系统,如果拖放IDE到win10边缘会吸附,但是拖不走了。

这磁吸是永久性。
----------------------------------------------
-
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 15:43:52
7楼: 在dpr文件加进去:
{$SETPEOSVERSION 5.0}  
{$SETPESUBSYSVERSION 5.0}

转自小日本:
https://qiita.com/ht_deko/items/e7d3e32dd97b3569e581
此帖子包含附件:
PNG 图像
大小:326.5K
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。
又不靠它 delphi 吃饭,怕甚?
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 16:21:37
8楼: 也就是工程的选项设置,这里的:
此帖子包含附件:
PNG 图像
大小:40.3K
----------------------------------------------
delphi 是兴趣,和工作无关,即使它倒闭。
又不靠它 delphi 吃饭,怕甚?
作者:
男 wr960204 (武稀松) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 17:21:15
8楼: 我倒是不觉得这个是Bug,Delphi动作算是晚的了。下面XP代表Windows5,windows2003也是Windows5.
VC2008的时候默认就是不支持XP了,要支持XP的话要在选项的”平台工具集“里面选VS2018 XP的选项。
Delphi11支持XP的方式楼上有人已经给出了
{$SETPEOSVERSION 5.0}  
{$SETPESUBSYSVERSION 5.0}
----------------------------------------------
武稀松http://www.raysoftware.cn
作者:
男 pcplayer (pcplayer) ★☆☆☆☆ -
普通会员
2021/9/13 17:53:26
9楼: WINDOWS 还是不错,至少 XP 底下用 D7 编译的程序,放到 WIN10 底下还能跑。

安卓的你试试?去年编译的,今年都不一定能跑。

iOS 不清楚向下兼容性如何。
----------------------------------------------
-
作者:
男 xiaobaosoft (小宝软件) ▲△△△△ -
注册会员
2021/9/13 19:24:03
10楼: @wr960204

是官方的说明文档不说清楚的锅
----------------------------------------------
-
作者:
男 sdhzth (通慧) ▲▲▲▲△ -
注册会员
2021/9/13 19:31:25
11楼: delphi跨windows版本的兼容性还是很好的
----------------------------------------------
-
作者:
男 jingzu (123456) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 20:10:45
12楼: 标签背景色 label1.color:=clRed;

不起作用了。
----------------------------------------------
-
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/9/13 20:18:15
12楼: 有没人试试更早的 Windows 95 的兼容性 ?
若 Windows 95 可以,
应该就全部 OS X86 都能兼容.
----------------------------------------------
-
作者:
男 2cc (2cc) ▲△△△△ -
注册会员
2021/9/13 20:43:59
13楼: @jingzu
label的Transparent设置为false
----------------------------------------------
-
作者:
男 lcjclj (lcj) ★☆☆☆☆ -
盒子活跃会员
2021/9/13 23:54:04
14楼: 真的有人还在用XP吗?大部分的程序都不支持它了,比如常用的浏览器!
----------------------------------------------
-
作者:
男 hz_2009 (盒子) ▲▲▲▲▲ -
注册会员
2021/9/14 7:52:50
15楼: 都是高手啊。11变化挺大的
----------------------------------------------
-
作者:
男 merced (merced) ▲▲▲▲▲ -
注册会员
2021/9/14 10:14:45
16楼: to plusv:
自从Delphi的缺省Char和String类型的编码从ANSI改为Unicode,Delphi就跟Win95/98说拜拜了
----------------------------------------------
-
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/9/14 10:33:20
17楼: To:merced or ALL

谁能编译一个 EXE 我来试 Win95/Win98.
最好能 2 个 EXE
1 个 Form EXE 另 1 个 Console EXE.
设置
{$SETPEOSVERSION 4.0}  
{$SETPESUBSYSVERSION 4.0}
----------------------------------------------
-
作者:
男 yxsoft (yxsoft) ★☆☆☆☆ -
盒子活跃会员
2021/9/14 13:47:52
18楼: 太牛了,要是设置{$SETPEOSVERSION 2.0},是不是DOS都可以跑了
----------------------------------------------
Great!
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/9/14 14:38:10
19楼: To:yxsoft

DOS EXE 没有版本栏位,
Windows EXE 才有,
从 Windows V1.0 就有了,
没错 Windows 第 1 版就有了.
----------------------------------------------
-
作者:
男 wr960204 (武稀松) ★☆☆☆☆ -
盒子活跃会员
2021/9/14 16:01:44
20楼: @ yxsoft (yxsoft)
所有Delphi编译的EXE都能在DOS上跑。
因为PE头部最前面是一个DOS程序,会在DOS上显示"this program must be run under win32".然后退出。
----------------------------------------------
武稀松http://www.raysoftware.cn
作者:
男 plusv (plusv) ▲▲▲▲▲ -
注册会员
2021/9/14 16:36:34
21楼: To: wr960204

那应该只是 Windows EXE 的保护机制,避免 DOS 运行到 Windows EXE 而以,
如果这么说,
那 X64 EXE 也能在 DOS 上跑.
----------------------------------------------
-
作者:
男 sczhyq (旺财) ▲▲▲▲▲ -
注册会员
2021/9/14 17:06:03
22楼: Windows 服务程序 10.4过来的编译时总是警告res有问题 只好项目重建

TForm 类也改进了不小  OldCreateOrder 属性已经没有了
----------------------------------------------
我84砖家
作者:
男 zhangpuqing (pupu) ▲▲▲▲▲ -
注册会员
2021/9/15 9:06:07
23楼: 现在的这个还不是正式版吧。坐等正式版。
----------------------------------------------
-
作者:
男 kylix2008 (kylix2008) ★☆☆☆☆ -
普通会员
2021/9/15 11:00:30
24楼: [搬运]Delphi 11 Windows XP compatibility tweak
http://bbs.2ccc.com/topic.asp?topicid=617767
----------------------------------------------
-
作者:
男 lsuper (lsuper) ★☆☆☆☆ -
盒子活跃会员
2021/9/16 0:05:32
25楼: 1、简单的搜索一下 11 的 Winapi.Windows.pas 文件,其中有 30+ 的 // 6.0  标志,这些都是 XP 所不兼容的,不过幸好都是 delayed 延时加载
2、所以,有一个简单、动态修改的方案,demo 参考:
https://github.com/delphilite/DelphiHookUtils/blob/master/Demos/XP/XPCmpatibilityTweak.pas

注意:这个 hook 方案还有些问题:x64 下 HookProc 上了但调用出错,由于这个实现参考的 wr960204 武稀松大哥的 HookUtils,暂时没空调,期待 武稀松 出手、或 欢迎 Github 上提 PR 哈 ~
----------------------------------------------
-
作者:
男 2cc (2cc) ▲△△△△ -
注册会员
2021/9/16 15:50:54
26楼: var GetTickCount64Next: function : UInt64; stdcall = nil;

function HookDelphiIAT(HookAddr,FuncAddr:Pointer):Pointer;
begin
  {$IFDEF X32}
  Result:=Pointer(PDWORD(PDWORD(DWORD(HookAddr)+2)^)^);
  PDWORD(PDWORD(DWORD(HookAddr)+2)^)^:=DWORD(FuncAddr);
  {$ELSE}
  Result:=Pointer(PDWORD64(PDWORD(DWORD(HookAddr)+2)^ + DWORD(HookAddr) + 6)^);
  PDWORD64(PDWORD(DWORD(HookAddr)+2)^ + DWORD(HookAddr) + 6)^:= DWORD64(FuncAddr);
  {$ENDIF}
end;

function GetTickCount64CallBack: UInt64; stdcall;
begin
  if TOSVersion.Major < 6 then
    Result := Winapi.Windows.GetTickCount
  else Result := GetTickCount64Next;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Winapi.Windows.GetTickCount64();
  if @GetTickCount64Next = nil then
  begin
    GetTickCount64Next:=HookDelphiIAT(@Winapi.Windows.GetTickCount64,@GetTickCount64CallBack);
  end;
  Winapi.Windows.GetTickCount64();
  ShowMessage('1111111111');
end;
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行45.89844毫秒 RSS