求一个32程序调用64位dll例程，最好用delphi，易语言也可以-求助问答-看雪-安全社区|安全招聘|kanxue.com

[已解决] 求一个32程序调用64位dll例程，最好用delphi，易语言也可以 300雪币

发表于: 2024-7-20 17:22 3378

[已解决] 求一个32程序调用64位dll例程，最好用delphi，易语言也可以 300雪币

JJGuo

2024-7-20 17:22

3378

32位程序调用 64位dll
自己写的一个测试dll,就一个导出函数
library X64Test;

uses
System.SysUtils,
System.Classes;

{$R *.res}

function ADD(NumA,NumB: Integer): Integer; stdcall;
begin
RESULT:=NumA+NumB;
end;

exports
ADD;

begin
end.

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！

上传的附件：

X64Test.rar （1.05MB，23次下载）

收藏・3

免费・0

支持

最新回复 (57) 1 2 3 ▶
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 2 楼下载了易易语言的一个例程，不会用， 2024-7-21 00:19 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 3 楼 2024-7-21 00:22 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 4 楼这个也是载了，请会易语言的大佬，帮忙看看 2024-7-21 00:23 0
Mxixihaha 雪币： 4396 活跃值： (4383) 能力值： ( LV2，RANK：10 ) 在线值：发帖 65 回帖 593 粉丝 18 关注私信	Mxixihaha 5 楼 https://github.com/rwfpl/rewolf-wow64ext 2024-7-21 13:09 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 6 楼 Mxixihaha大佬，看不懂cpp语言的 2024-7-21 15:04 0
romobin 雪币： 7979 活跃值： (4739) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 241 粉丝 45 关注私信	romobin 7 楼 2024-7-21 17:30 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 8 楼 romobin大佬，"x64_本地加载dll" 用的哪一个模块 2024-7-21 19:19 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 9 楼把eWOW64Ext_v1.21这个模块也传上来，可以用这个模块吗上传的附件： eWOW64Ext_v1.21.zip （88.31kb，9次下载） 2024-7-21 20:40 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 10 楼核心就这2段代码，在你需要进入64位时，复制以下代码即可 delphi 进入64位模式 asm push $33 db $e8,0,0,0,0 add dword ptr [esp],5 retf end delphi退出64位进入32位模式 x64end： asm db $e8,0,0,0,0 mov dword ptr [rsp + 4], $23 add dword ptr [rsp], $0d retf end 最后于 2024-7-22 09:20 被tDasm编辑，原因： 2024-7-22 09:16 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 11 楼 tDasm 大佬，我新建一个64位程序，用下面代码正常调用 var hDLL: THandle; pFunc: function(NumA, NumB: Integer): Integer; stdcall; result: Integer; begin hDLL := LoadLibrary('X64Test.dll'); if hDLL <> 0 then try @pFunc := GetProcAddress(hDLL, 'ADD'); if @pFunc <> nil then begin result := pFunc(StrToInt(Edit1.Text), StrToInt(Edit2.Text)); Edit3.Text := IntToStr(result); end else raise Exception.Create('无法找到函数'); finally FreeLibrary(hDLL); end else raise Exception.Create('无法加载DLL'); end; 请问我新建32位程序，把上面你提供的代码加在什么地方 2024-7-22 13:00 0
romobin 雪币： 7979 活跃值： (4739) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 241 粉丝 45 关注私信	romobin 12 楼 JJGuo romobin大佬，"x64_本地加载dll" 用的哪一个模块就是这个模块 3.32版本精益论坛有 2024-7-22 13:45 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 13 楼你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。 asm push $33 db $e8,0,0,0,0 add dword ptr [esp],5 retf end 放在loadlibrary前面 2024-7-22 15:49 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 14 楼 tDasm 你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。 asm push $33 db $e8,0,0,0,0 add d ... 试过放在前面，不成功，运行后直接退出了 2024-7-22 16:25 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 15 楼 romobin 就是这个模块 3.32版本精益论坛有大佬没有找到这个模块，可否把你的模块放上来呢 2024-7-22 16:26 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 16 楼肯定不会成功，因为在进入64位后执行的还是32位代码。后面这段话你看不懂吗？你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。最后于 2024-7-22 16:54 被tDasm编辑，原因： 2024-7-22 16:53 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 17 楼调用还是可以的，来自wow6*4ex那个sample: 最后于 2024-7-22 17:15 被bestbird编辑，原因： 2024-7-22 17:13 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 18 楼没办法贴代码，总是提示请求参数错误。最后于 2024-7-22 17:17 被bestbird编辑，原因： 2024-7-22 17:15 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 19 楼 bestbird 调用还是可以的，来自wow6*4ex那个sample: 可以在delphi中调用易语言中的函数吗,可以打包上来吗 2024-7-22 19:10 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 20 楼不懂易语言。 2024-7-22 23:16 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 21 楼顺便说一句，希望不要介意。真要玩这些东西，不懂C是无法想象的。很多时候，别人给你指明一条路之后，你应该自己想办法付出努力。否则是不可能提高的。 2024-7-22 23:18 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 22 楼 bestbird 顺便说一句，希望不要介意。真要玩这些东西，不懂C是无法想象的。很多时候，别人给你指明一条路之后，你应该自己想办法付出努力。否则是不可能提高的。不会介意，自己不是专业程序员，喜欢delphi，但以前要工作，偶尔用delphi写个小工具提高了工作效率，年龄大了学不动，c有点望而生畏。前些天看到易语言可以32位调用 64位dll，下载了eWOW64Ext_v1.21模块，按照他的方式，依样画葫芦，也是直接退出，没成功，不知道哪里不对 2024-7-23 09:33 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 23 楼说明你写的X64test.dll有问题。应该是 function ADD(NumA,NumB: Integer): Integer; cdecl; 2024-7-23 10:11 0
linghaien 雪币： 4722 活跃值： (3234) 能力值： ( LV2，RANK：10 ) 在线值：发帖 11 回帖 55 粉丝 1 关注私信	linghaien 24 楼你走上了一个错误的想法，32并不适合调用64，问题很多，就算成功了，也是不稳定的，建议你换个思路 2024-7-23 10:15 0
iamasbcx 雪币： 3876 活跃值： (3683) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 191 粉丝 8 关注私信	iamasbcx 25 楼这个估计要夸进程通信调用吧 2024-7-23 11:25 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

JJGuo

发帖

340

回帖

RANK

关注

私信

他的文章

关于我们

联系我们

企业服务

看雪公众号

最新回复 (57) 1 2 3 ▶
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 2 楼下载了易易语言的一个例程，不会用， 2024-7-21 00:19 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 3 楼 2024-7-21 00:22 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 4 楼这个也是载了，请会易语言的大佬，帮忙看看 2024-7-21 00:23 0
Mxixihaha 雪币： 4396 活跃值： (4383) 能力值： ( LV2，RANK：10 ) 在线值：发帖 65 回帖 593 粉丝 18 关注私信	Mxixihaha 5 楼 https://github.com/rwfpl/rewolf-wow64ext 2024-7-21 13:09 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 6 楼 Mxixihaha大佬，看不懂cpp语言的 2024-7-21 15:04 0
romobin 雪币： 7979 活跃值： (4739) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 241 粉丝 45 关注私信	romobin 7 楼 2024-7-21 17:30 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 8 楼 romobin大佬，"x64_本地加载dll" 用的哪一个模块 2024-7-21 19:19 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 9 楼把eWOW64Ext_v1.21这个模块也传上来，可以用这个模块吗上传的附件： eWOW64Ext_v1.21.zip （88.31kb，9次下载） 2024-7-21 20:40 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 10 楼核心就这2段代码，在你需要进入64位时，复制以下代码即可 delphi 进入64位模式 asm push $33 db $e8,0,0,0,0 add dword ptr [esp],5 retf end delphi退出64位进入32位模式 x64end： asm db $e8,0,0,0,0 mov dword ptr [rsp + 4], $23 add dword ptr [rsp], $0d retf end 最后于 2024-7-22 09:20 被tDasm编辑，原因： 2024-7-22 09:16 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 11 楼 tDasm 大佬，我新建一个64位程序，用下面代码正常调用 var hDLL: THandle; pFunc: function(NumA, NumB: Integer): Integer; stdcall; result: Integer; begin hDLL := LoadLibrary('X64Test.dll'); if hDLL <> 0 then try @pFunc := GetProcAddress(hDLL, 'ADD'); if @pFunc <> nil then begin result := pFunc(StrToInt(Edit1.Text), StrToInt(Edit2.Text)); Edit3.Text := IntToStr(result); end else raise Exception.Create('无法找到函数'); finally FreeLibrary(hDLL); end else raise Exception.Create('无法加载DLL'); end; 请问我新建32位程序，把上面你提供的代码加在什么地方 2024-7-22 13:00 0
romobin 雪币： 7979 活跃值： (4739) 能力值： ( LV2，RANK：10 ) 在线值：发帖 6 回帖 241 粉丝 45 关注私信	romobin 12 楼 JJGuo romobin大佬，"x64_本地加载dll" 用的哪一个模块就是这个模块 3.32版本精益论坛有 2024-7-22 13:45 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 13 楼你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。 asm push $33 db $e8,0,0,0,0 add dword ptr [esp],5 retf end 放在loadlibrary前面 2024-7-22 15:49 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 14 楼 tDasm 你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。 asm push $33 db $e8,0,0,0,0 add d ... 试过放在前面，不成功，运行后直接退出了 2024-7-22 16:25 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 15 楼 romobin 就是这个模块 3.32版本精益论坛有大佬没有找到这个模块，可否把你的模块放上来呢 2024-7-22 16:26 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 16 楼肯定不会成功，因为在进入64位后执行的还是32位代码。后面这段话你看不懂吗？你这个代码在win32下只会生成32位代码不会生成64位代码。建议生成64位exe后通过ida反汇编然后内嵌到32位代码中。最后于 2024-7-22 16:54 被tDasm编辑，原因： 2024-7-22 16:53 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 17 楼调用还是可以的，来自wow6*4ex那个sample: 最后于 2024-7-22 17:15 被bestbird编辑，原因： 2024-7-22 17:13 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 18 楼没办法贴代码，总是提示请求参数错误。最后于 2024-7-22 17:17 被bestbird编辑，原因： 2024-7-22 17:15 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 19 楼 bestbird 调用还是可以的，来自wow6*4ex那个sample: 可以在delphi中调用易语言中的函数吗,可以打包上来吗 2024-7-22 19:10 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 20 楼不懂易语言。 2024-7-22 23:16 0
bestbird 雪币： 30030 活跃值： (2462) 能力值： ( LV3，RANK：20 ) 在线值：发帖 10 回帖 266 粉丝 22 关注私信	bestbird 21 楼顺便说一句，希望不要介意。真要玩这些东西，不懂C是无法想象的。很多时候，别人给你指明一条路之后，你应该自己想办法付出努力。否则是不可能提高的。 2024-7-22 23:18 0
JJGuo 雪币： 62 活跃值： (2052) 能力值： ( LV2，RANK：10 ) 在线值：发帖 49 回帖 340 粉丝 8 关注私信	JJGuo 22 楼 bestbird 顺便说一句，希望不要介意。真要玩这些东西，不懂C是无法想象的。很多时候，别人给你指明一条路之后，你应该自己想办法付出努力。否则是不可能提高的。不会介意，自己不是专业程序员，喜欢delphi，但以前要工作，偶尔用delphi写个小工具提高了工作效率，年龄大了学不动，c有点望而生畏。前些天看到易语言可以32位调用 64位dll，下载了eWOW64Ext_v1.21模块，按照他的方式，依样画葫芦，也是直接退出，没成功，不知道哪里不对 2024-7-23 09:33 0
tDasm 雪币： 14873 活跃值： (6098) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 666 粉丝 18 关注私信	tDasm 23 楼说明你写的X64test.dll有问题。应该是 function ADD(NumA,NumB: Integer): Integer; cdecl; 2024-7-23 10:11 0
linghaien 雪币： 4722 活跃值： (3234) 能力值： ( LV2，RANK：10 ) 在线值：发帖 11 回帖 55 粉丝 1 关注私信	linghaien 24 楼你走上了一个错误的想法，32并不适合调用64，问题很多，就算成功了，也是不稳定的，建议你换个思路 2024-7-23 10:15 0
iamasbcx 雪币： 3876 活跃值： (3683) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 191 粉丝 8 关注私信	iamasbcx 25 楼这个估计要夸进程通信调用吧 2024-7-23 11:25 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复