var
A:array[0..50] of char;
r:boolean;
begin asm
{保存段、寄存器的值}
push es
push ds
pusha
push ax
mov ax,seg oldaddr[0]
mov ds,ax
mov es,ax
pop ax
end;
end;
不能运行?
A:array[0..50] of char;
r:boolean;
begin asm
{保存段、寄存器的值}
push es
push ds
pusha
push ax
mov ax,seg oldaddr[0]
mov ds,ax
mov es,ax
pop ax
end;
end;
不能运行?
解决方案 »
- delphi 中怎么实现主界面的分页显示(就像360,QQ医生)
- 我的SQL语法有问题,请各位帮我看一下。
- 谁能解决这样的错误:"链接文件CHRISTINE.EXE到不存在的输出ODBC32.DLL:39"
- 在程序中调出outlook,ie发邮件或者访问网络的问题。
- 如何让程序在OS启动时自动运行?
- 用adoquery查询access出现奇怪现象????
- 怎么在win 98上安装ADO2.5
- 1:用database Desktop 建表时blob memo,blob graphic 的内容如何加入?
- 各路英雄豪杰请问:怎么把一个Delphi的exe文件放在服务器上定时运行?
- 中文的朗读怎样实现
- 怎样将socket控件加入到Delphi7中去?
- 怎么隐藏系统已有的一个进程!
PUSH与POP不对应
又没有函数调用,当然有问题的