| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 340 人关注过本帖
标题:[求助]DELPHI压入字符串
只看楼主 加入收藏
xie139
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-10-14
收藏
 问题点数:0 回复次数:4 
[求助]DELPHI压入字符串


以前我没太注意,今天一个朋友问我DELPHI压入字符串,我随手给它编了一段代码:

var
Form1: TForm1;
dz01:string[100];
implementation


procedure acc;stdcall;
begin
dz01:= 'acc ';
asm
pushad
mov ebx,$754ea4
mov ecx,dword ptr ds:[ebx]
push offset dz01
mov ebx,$430FD0
call ebx
popad
end;
end;

下面是以上DELPHI代码反汇编结果
0044E7BC 60 pusha
0044E7BD BBA44E7500 mov ebx, $00754EA4
0044E7C2 3E8B0B mov ecx, ds:[ebx]
0044E7C5 682C044500 push $0045042C
0044E7CA BBD00F4300 mov ebx, $00430FD0
0044E7CF FFD3 call ebx
0044E7D1 61 popa
0044E7D2 C3 ret

而达不到ASM的偏移指针(压入字符串)的效果
DELPHI 效果:0044E7C5 682C044500 push $0045042C
要达到的效果:0044E7C5 682C044500 push offset dz01

DELPHI有不有办法达到这个效果

[此贴子已经被作者于2007-10-15 2:06:15编辑过]

2007-10-14 21:13
蓝枫叶
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-10-15
收藏
得分:0 
老大 你作外挂的吧 这么熟悉
2007-10-15 00:20
蓝枫叶
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-10-15
收藏
得分:0 
procedure ptgj;stdcall; //ptgj 普通攻击首拼
begin
dz01:= 'attack ';//英文 普通攻击
2007-10-15 00:22
蓝枫叶
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-10-15
收藏
得分:0 
procedure ptgj;stdcall;
begin
asm
pushad
mov ebx,$430FD0
call ebx
popad
end;
end;
2007-10-15 00:26
xie139
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-10-14
收藏
得分:0 
所问非所答,你是想灌水来的吧。

[此贴子已经被作者于2007-10-15 2:14:42编辑过]


2007-10-15 01:35
快速回复:[求助]DELPHI压入字符串
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012005 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved