Close Delphi
Locate bordbk120N.dll (C:\Program Files (x86)\CodeGear\RAD Studio\6.0\bin)
Make a backup copy
Check step 3
Open bordbk120N.dll in a Hex editor (UltraEdit works fine)
Search for “01 00 48 74 47 80 3D”
Make sure this is found once only
Replace “74” with “EB”
Save
Restart Delphi. Error should be gone.

5A 8B 38 FF 57 1C 8B F8 C6 43 25 00 8B 45 14 50 8B 45 10 50 8B 45 0C 50 8B 45 08 50 6A 00 6A 00 8B 4D FC 8B D6 8B C3 E8 23 13 00 00 88 45 FB 80 7D FB 00 75 6B 8D 45 E4 50 8D 4D E0

8B 45 10 50 8B 45 0C 50 8B 45 08 50 6A 00 6A 00 8B 4D FC 8B D6 8B C3 E8 23 13 00 00

90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 B0 01

-------------------------
0x00006860: B0
0x00006861: 00
0x00006862: C3
0x0000689C: B0
0x0000689D: 00
0x0000689E: C3
0x000068D8: B0
0x000068D9: 00
0x000068DA: C3
0x00006A80: B0
0x00006A81: 00
0x00006A82: C3
0x00006B1C: B0
0x00006B1D: 00
0x00006B1E: C3-------------------------

00006860: B0 <- 55
00006861: 00 <- 8B
00006862: C3 <- EC
0000689C: B0 <- 55
0000689D: 00 <- 8B
0000689E: C3 <- EC
000068D8: B0 <- 55
000068D9: 00 <- 8B
000068DA: C3 <- EC
00006A80: B0 <- 55
00006A81: 00 <- 8B
00006A82: C3 <- EC
00006B1C: B0 <- BA
00006B1D: 00 <- 2C
00006B1E: C3 <- 77

procedure TForm1.Button3Click(Sender: TObject);
const
addr0: array[..] of LongWord =($, $689C, $68D8, $6A80, $6B1C);
value: array[..] of Byte = ($B0, , $C3);
var
I, v: Integer;
S: TStream;
begin
S := TFileStream.Create(
'C:\Program Files\CodeGear\RAD Studio\5.0\bin\bds.exe', fmOpenReadWrite);
try
v := $B000C3;
for I := to do
begin
S.Seek(addr0[I], );
S.Write(value, );
end;
finally
S.Free;
end;
end;

00006860:   B0   <-   55 
00006861:   00   <-   8B 
00006862:   C3   <-   EC 
0000689C:   B0   <-   55 
0000689D:   00   <-   8B 
0000689E:   C3   <-   EC 
000068D8:   B0   <-   55 
000068D9:   00   <-   8B 
000068DA:   C3   <-   EC 
00006A80:   B0   <-   55 
00006A81:   00   <-   8B 
00006A82:   C3   <-   EC 
00006B1C:   B0   <-   BA 
00006B1D:   00   <-   2C 
00006B1E:   C3   <-   77

00006860: B0  <- 55 
00006861: 00  <- 8B 
00006862: C3  <- EC

0000689C: B0  <- 55 
0000689D: 00  <- 8B 
0000689E: C3  <- EC

000068D8: B0  <- 55 
000068D9: 00  <- 8B 
000068DA: C3  <- EC

00006A80: B0  <- 55 
00006A81: 00  <- 8B 
00006A82: C3  <- EC

00006B1C: B0  <- BA 
00006B1D: 00  <- 2C 
00006B1E: C3  <- 77

delphi win7 and high path的更多相关文章

  1. 恢复Delphi XE2的Library Path

    Delphi XE2好好的,手贱乱删,结果新建一个工程都不能编译了,出现:DELPHI X2 [DCC Fatal Error] KjcxClient.dpr(1): F1027 Unit not f ...

  2. WIN7环境变量path误删(windows找不到文件‘%windir%\systempropertiesadvanced.exe’)的解决办法

    一.进入安全模式 1.通过Ctrl+R打开运行窗口,输入Msconfig 2.如上图,选择安全引导,点击确定.重启计算机进入安全模式. 二.在安全模式下,设置环境变量 1.C:\Windows\Sys ...

  3. WIN7 WIN10修改path不用重启即可生效

    近来安装python scrapy经常忘了添加到path,需要时增加了但需要重启才能起作用,用下面的方法马上能生效: 1修改path:右击"计算机"--高级--环境变量--path ...

  4. 2015.1.25 Delphi打开网址链接的几种方法

    Delphi打开网址链接的几种方法1.使用shellapi打开系统中默认的浏览器              首先需在头部引用 shellapi单元即在uses中添加shellapi,这里我们需要知道有 ...

  5. Windows Path设置

    win7系统环境变量path的两种设置方法   环境变量Path    环境变量是在操作系统中一个具有特定名字的对象,它包含了一个或者多个应用程序所将使用到的信息.例如Windows和DOS操作系统中 ...

  6. 【转】报错:Program "sh" not found in PATH

    原文网址:http://www.cnblogs.com/SadNight/p/3406201.html (1) 报错:Program "sh" not found in PATH ...

  7. 【转】Win7环境下VS2010配置Cocos2d-x-2.1.4最新版本的开发环境(亲测)

    http://blog.csdn.net/ccf19881030/article/details/9204801 很久以前使用博客园博主子龙山人的一篇博文<Cocos2d-x win7+vs20 ...

  8. 正则表达式-delphi

    一.工具选择 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它. 官方网站: http://www.regular-e­xpressions.inf ...

  9. delphi正则表达式学习笔记(三)

    Delphi 中经常使用的正则表达式 在 Delphi 中使用正则表达式, 目前 PerlRegEx 应该是首选, 准备彻底而细致地研究它.  官方网站: http://www.regular-e x ...

随机推荐

  1. 381. Insert Delete GetRandom O(1) - Duplicates allowed

    Design a data structure that supports all following operations in average O(1) time. Note: Duplicate ...

  2. 萌新笔记之二叉搜索树(BST)

    前言,以前搞过线段树,二叉树觉得也就那样= =.然后数据结构的课也没怎么听过,然后下周期中考... 本来以为今天英语考完可以好好搞ACM了,然后这个数据结构期中考感觉会丢人,还是好好学习一波. 二叉搜 ...

  3. ACM心理过程

    ACM 都已经一个学期过去了,然后还是很菜很菜,比起别人真的是差到一种境界好么???因为自身的太多原因,因为学的不够精,因为懒惰,因为学习的方法,因为自身对未来的不渴望.因为自满,因为自己的自甘堕落, ...

  4. bzoj 4873: [Shoi2017]寿司餐厅【最大权闭合子图】

    有正负收益,考虑最小割 因为有依赖关系,所以考虑最大权闭合子图 首先对每个d[i][j]建个点,正权连(s,id[i][j],d[i][j])并加到ans上,负权连(id[i][j],t,-d[i][ ...

  5. 在mpvue框架中使用Vant WeappUI组件库的注意事项

    1如何引入组件库 有两种方法 1 npm下载 2 下载代码,下面介绍第二种方法. 在gitHub上, 链接如下 https://github.com/youzan/vant-weapp 首先在自己项目 ...

  6. java并发编程(一)

    java并发编程(一) 线程基础 在Java代码中,单独创建线程,都需要使用类java.lang.Thread,通常可以通过集成并扩展Thread的run()方法,也可以来创建一个Thread,将一个 ...

  7. js字符串与正则匹配

    这里就说一下具体的使用方法,不做过多的解释. 字符串匹配正则的方法:str.方法(reg) 1.str.search() 参数是正则,将会从开始查找字符串中与正则匹配的字符,并返回该字符的第一次出现的 ...

  8. bzoj 5249 [2018多省省队联测] IIIDX

    bzoj 5249 [2018多省省队联测] IIIDX Link Solution 首先想到贪心,直接按照从大到小的顺序在后序遍历上一个个填 但是这样会有大问题,就是有相同的数的时候,会使答案不优 ...

  9. 牛客寒假5-D.炫酷路途

    链接:https://ac.nowcoder.com/acm/contest/331/D 题意: 小希现在要从寝室赶到机房,路途可以按距离分为N段,第i个和i+1个是直接相连的,只需要一秒钟就可以相互 ...

  10. Oracle Database Hang While Loading 3rd party SBT Library And After This Nobody Can Access The Database (windows login 登陆hang )

    Applies to: Oracle Database - Enterprise Edition - Version 11.2.0.4 and later Microsoft Windows x64 ...