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

rmb8u8 · 发表于 2026-4-29 13:35:20

我用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))

输出调试文本 (“注入成功”)

输出调试文本 (“注入失败”)

guitar · 发表于 2026-4-29 19:20:13

delphi几的exe? 是不是64位？ 64位Pe你这个用不了

rmb8u8 · 发表于 2026-4-29 21:46:36

guitar 发表于 2026-4-29 19:20
delphi几的exe? 是不是64位？ 64位Pe你这个用不了

不是64位，Delphi 2012版本编译的exe

feiaiyou · 发表于 2026-4-30 02:38:34

你弄明白了能在帖子里留下咋弄的吗

		自动登录	找回密码
密码			注册

[精币悬赏] Delphi编译的exe怎样永久注入dll