Delphi编译的exe怎样永久注入dll

rmb8u8

我用https://bbs.ijingyi.com/thread-13818429-1-1.html这里的方法可以将dll永久注入到vc编译的exe中，但往Delphi编译的exe进入永久注入后，exe就直接运行出现了原窗口，并没有弹出注入的dll的窗口，要怎样修改才能将dll注入到Delphi编译的exe程序后运行exe必须先弹出dll窗口呢？

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
PE	字节集
DLL	字节集
区段	区段信息
映像jz	整数型
映像大小	整数型

PE ＝ 读入文件 (取运行目录 () ＋ “\1.exe”)
DLL ＝ 读入文件 (取运行目录 () ＋ “\a.dll”)
映像jz ＝ 取映像jz (PE)
映像大小 ＝ 取映像大小 (PE)
加区段 (PE, “.test”, 取空白字节集 (取字节集长度 ( #Load ) ＋ 取字节集长度 (DLL)), #区段属性_包含可执行代码, 区段)
写PE数据 (PE, 区段.实际地址, { 104 } ＋ 到字节集 (到整数 (映像jz ＋ 区段.内存地址 ＋ 15 ＋ 取字节集长度 ( #Load ))))  ' push dll
写PE数据 (PE, 区段.实际地址 ＋ 5, { 232 } ＋ 到字节集 (到整数 (��� (映像jz ＋ 映像大小 ＋ 15) ＋ 映像jz ＋ 区段.内存地址 ＋ 20)))  ' call load
写PE数据 (PE, 区段.实际地址 ＋ 10, { 233 } ＋ 到字节集 (到整数 (��� (映像jz ＋ 映像大小 ＋ 15) ＋ 映像jz ＋ 取入口地址 (PE))))  ' jmp 入口
写PE数据 (PE, 区段.实际地址 ＋ 15, #Load )
写PE数据 (PE, 区段.实际地址 ＋ 15 ＋ 取字节集长度 ( #Load ), DLL)
置入口地址 (PE, 区段.内存地址)
如果 (写到文件 (“2.exe”, PE))
输出调试文本 (“注入成功”)
输出调试文本 (“注入失败”)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 PE, 字节集<br /> .局部变量 DLL, 字节集<br /> .局部变量 区段, 区段信息<br /> .局部变量 映像jz, 整数型<br /> .局部变量 映像大小, 整数型<br /> <br /> PE ＝ 读入文件 (取运行目录 () ＋ “\1.exe”)<br /> DLL ＝ 读入文件 (取运行目录 () ＋ “\a.dll”)<br /> 映像jz ＝ 取映像jz (PE)<br /> 映像大小 ＝ 取映像大小 (PE)<br /> 加区段 (PE, “.test”, 取空白字节集 (取字节集长度 (#Load) ＋ 取字节集长度 (DLL)), #区段属性_包含可执行代码, 区段)<br /> 写PE数据 (PE, 区段.实际地址, { 104 } ＋ 到字节集 (到整数 (映像jz ＋ 区段.内存地址 ＋ 15 ＋ 取字节集长度 (#Load))))  ' push dll<br /> 写PE数据 (PE, 区段.实际地址 ＋ 5, { 232 } ＋ 到字节集 (到整数 (－(映像jz ＋ 映像大小 ＋ 15) ＋ 映像jz ＋ 区段.内存地址 ＋ 20)))  ' call load<br /> 写PE数据 (PE, 区段.实际地址 ＋ 10, { 233 } ＋ 到字节集 (到整数 (－(映像jz ＋ 映像大小 ＋ 15) ＋ 映像jz ＋ 取入口地址 (PE))))  ' jmp 入口<br /> 写PE数据 (PE, 区段.实际地址 ＋ 15, #Load)<br /> 写PE数据 (PE, 区段.实际地址 ＋ 15 ＋ 取字节集长度 (#Load), DLL)<br /> 置入口地址 (PE, 区段.内存地址)<br /> .如果 (写到文件 (“2.exe”, PE))<br />     输出调试文本 (“注入成功”)<br /> .否则<br />     输出调试文本 (“注入失败”)<br /> .如果结束