初学Delphi嵌入汇编[14] - 常量与变量在汇编中的一个区别

2017年02月06日 55 阅读

初学Delphi嵌入汇编[14] - 常量与变量在汇编中的一个区别2012-04-13 博客园 万一//常量可以在汇编语句中运算function Fun: Integer;const a = 11; b = 5;asm mov eax, a-bend;//测试procedure TForm1.Button1Click（Sender: TObject）;var i: Integer;begin i := Fun; ShowMessage（IntToStr（i...

初学Delphi嵌入汇编[15] - 需要保护的寄存器

2017年02月06日 63 阅读

初学Delphi嵌入汇编[15] - 需要保护的寄存器2012-04-13 博客园 万一前面提到 32 位的寄存器有: EAX EBX ECX EDX ESP EBP ESI EDI; 其中, EAX ECX EDX 是自由使用的.那么剩下的 EBX ESP EBP ESI EDI 五个寄存器就是应该保护的！所谓保护, 并不是不可以使用, 而是在使用前先把其中的值寄存在另外一个地方, 用 完后再恢复其值.如果不这样做, 有可能会发生意想不到的错误.举例:/...

初学Delphi嵌入汇编[16] - 进制的表示方法

2017年02月06日 55 阅读

初学Delphi嵌入汇编[16] - 进制的表示方法2012-04-14 cnblogs 万一关于进制:生活中有 7进制（星期）、60进制（小时）、10进制（算术）等等.计算机要用到 10进制、16进制、2进制和 8进制.8进制用得少了, 但也有, 譬如 Unix 服务器上的文件属性.2进制是计算机容易识别的; 10进制是人容易识别的, 据说 10进制源自于人有十个手 指.计算机为什么会使用 8进制和 16进制呢？ 因为: 23=8; 24=16; 这样比...

初学Delphi嵌入汇编[17] - 逻辑运算

2017年02月06日 56 阅读

初学Delphi嵌入汇编[17] - 逻辑运算2012-04-14 cnblogs 万一AND: 逻辑与指令 OR : 逻辑或指令 XOR: 逻辑异或指令 NOT: 逻辑非指令这和 Delphi 的逻辑命令完全一致.//逻辑非 Not:{not 1 = 0;not 0 = 1;}varByteNum: Byte;begin//赋值 11111111B （255） 取反:asmmov al, 11111111B {eax 包含 ax; ax 包含 al; a...

初学Delphi嵌入汇编[18] - SHL 与 SHR

2017年02月06日 56 阅读

初学Delphi嵌入汇编[18] - SHL 与 SHR2012-04-14 cnblogs 万一汇编中的SHL（左移）、SHR（右移）命令也是和 Delphi 一样的.var ByteNum: Byte;begin //右移 shr asm mov al, 10000000B {128} shr al, 1 {shr 10000000 一次会得到 01000000} mov ByteNum, al end; ShowMessage（IntT...

初学Delphi嵌入汇编[19] - Delphi 的无符号整数类型

2017年02月06日 52 阅读

初学Delphi嵌入汇编[19] - Delphi 的无符号整数类型2012-04-14 cnblogs 万一var B: Byte; W: Word; C: Cardinal;begin {Byte 是1字节（8位）无符号整型, 其最大值是 111111112} asm mov B, 11111111B; end; ShowMessage（IntToStr（B））; {255} {Word 是2字节（16位）无符号整型, 其最大值是 11111111 ...

初学Delphi嵌入汇编[20] - Delphi 的 Integer 类型

2017年02月06日 53 阅读

初学Delphi嵌入汇编[20] - Delphi 的 Integer 类型2012-04-14 cnblogs 万一varI: Integer;begin//Integer 类型是4字节（32位）有符号整数, 最高位是符号位, 如果是正数, 符号位 是 0、负数的符号位是1//所以 Integer 的最大值是: 01111111 11111111 11111111 111111112asmmov I, 01111111111111111111111111...

初学Delphi嵌入汇编[21] - Delphi 的其他整数类型

2017年02月06日 57 阅读

初学Delphi嵌入汇编[21] - Delphi 的其他整数类型2012-04-15万一除了 Byte、Word、Cardinal、Integer 外, Delphi 的整数类型还有:Longint、Longword、Shortint、Smallint、Int64其中 Longint 相当于 Integer; Longword 相当于 Cardinal. 这样还有三种类型:Shortint、Smallint、Int64//Shortint 是1字节（8位...

初学Delphi嵌入汇编[22] - 在汇编代码中使用记录

2017年02月06日 52 阅读

初学Delphi嵌入汇编[22] - 在汇编代码中使用记录2012-04-15 博客园 万一//自定义记录用于测试Type TMyRec = record i: Integer; c: Char; end;//在汇编中使用记录的过程procedure GetRec（Rec: TMyRec）;asm mov eax.TMyRec.i, 100 {eax 会接受第一个参数} mov eax.TMyRec.c, "M"end;//测试procedure TF...

初学Delphi嵌入汇编[23] - LOOP 循环

2017年02月06日 52 阅读

初学Delphi嵌入汇编[23] - LOOP 循环2012-04-15 博客园 万一//计算 x 的 n 次方的函数function Fun（x,n: Integer）: Integer;asm//mov eax, x {因为 eax 会先获取第一个参数, 这句可以省略} mov ecx, n {ecx 是个计数寄存器, 会记录循环的次数, 每循环一次 ecx 的值 就会减1} sub ecx, 1 @Lable1: add eax...

初学Delphi嵌入汇编[24] - 汇编语言的简单数据类型

2017年02月06日 54 阅读

初学Delphi嵌入汇编[24] - 汇编语言的简单数据类型2012-04-15 博客园 万一简单数据类型类型助记符助记符简写所占字节数数值范围字节BYTEDB10..255字WORDDW20..65535双字DWORDDD40..4294967295远字FWORDDF6 四字QWORDDQ8 十字节TBYTEDT10 有符号字节SBYTE 1-128..127有符号字SWORD 1-32768..32767有符号双字SDWORD 1-2147483648...

初学Delphi嵌入汇编[25] - 在汇编中调用函数

2017年02月06日 51 阅读

初学Delphi嵌入汇编[25] - 在汇编中调用函数2012-04-15 博客园 万一//准备一个在汇编中要调用的函数function DelphiFun（x,y: Integer）: Integer;begin Result := x + y;end;//汇编函数function AsmFun: Integer;asm mov eax, 1 {eax 对应函数的第一个参数, 这里给第一个参数赋值为 1} mov edx, 2 {edx 对应函数...

初学Delphi嵌入汇编[26] - 大小写字母转换

2017年02月06日 55 阅读

初学Delphi嵌入汇编[26] - 大小写字母转换2012-04-16 博客园 万一//小写字母转大写字母function Fun1（C: Char）: Char;asm sub C, 32//sub C, "a"-"A" {竟也可以这样写}end;//大写字母转小写字母function Fun2（C: Char）: Char;asm add C, 32end;//测试procedure TForm1.Button1Click（Sender: TObje...

初学Delphi嵌入汇编[27] - XCHG 指令: 交换寄存器的内容

2017年02月06日 50 阅读

初学Delphi嵌入汇编[27] - XCHG 指令: 交换寄存器的内容2012-04-16 博客园 万一//XCHG 指令: 交换寄存器的内容var x,y: Integer;begin x := 1; y := 9; asm mov eax, x mov ecx, y xchg eax, ecx {xchg 的参数必须至少一个是寄存器, 不能有 xchg x,y 类似的操作} mov x, eax mov y, ecx end; ShowMe...

初学Delphi嵌入汇编[28] - 把EAX的值置为0的三种方法与效率

2017年02月06日 59 阅读

初学Delphi嵌入汇编[28] - 把EAX的值置为0的三种方法与效率2012-04-16 博客园 万一//以下三个函数功能一样, 但效率不同{Fun1 需要读取常数 0, 最慢}function Fun1: Integer;asm mov eax, 0end;{Fun2 与 Fun3 只是操作 CPU 的寄存器, 比 Fun1 快}function Fun2: Integer;asm sub eax, eaxend;{Fun3 最快}function ...

初学Delphi嵌入汇编[29] - 寄存器所能接受的数值范围

2017年02月06日 58 阅读

初学Delphi嵌入汇编[29] - 寄存器所能接受的数值范围2012-04-16 博客园 万一譬如 EAX AX AH AL 四个储存器, 真实存在的其实只有一个 EAX, AX AH AL 不过是不同的 访问方式.11111111 11111111 11111111 11111111 : EAX11111111 11111111 11111111 11111111 : AX11111111 11111111 11111111 11111111 : AH...

初学Delphi嵌入汇编[30] - 寄存器表

2017年02月06日 50 阅读

初学Delphi嵌入汇编[30] - 寄存器表2012-04-16 博客园 万一寄存器表类型名称二进制码寄存器说明多功能寄存器AL0累加寄存器低八位AH100累加寄存器低八位AX016 位累加寄存器EAX032 位累加寄存器BL11基址寄存器低八位BH111基址寄存器低八位BX1116 位基址寄存器EBX1132 位基址寄存器CL1计数寄存器低八位CH101计数寄存器低八位CX116 位计数寄存器ECX132 位计数寄存器DL10数据寄存器低八位DH110...

再学GDI+[1]: 安装文件头

2017年02月06日 58 阅读

再学GDI+[1]: 安装文件头2012-04-23 cnblogs 万一GDI+ 是 Windows 的一个函数库, 来自 WindowsSystem32GDIPlus.dll, 其中包含了 610 个函数.在 Delphi 中使用需要先下载安装 GDI+ for Delphi（这用于 2006、2007 Win32 的版 本）.提供一个新的下载: http://files.cnblogs.com/del/GDIplusNew.rar ; 上面那个的 D...

再学GDI+[2]: DrawLine - 绘制直线

2017年02月06日 55 阅读

再学GDI+[2]: DrawLine - 绘制直线2012-04-23 cnblogs 万一本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class（TForm） procedure FormPaint（Sender: TObject）; end...

再学GDI+[3]: DrawRectangle - 绘制矩形

2017年02月06日 52 阅读

再学GDI+[3]: DrawRectangle - 绘制矩形2012-04-23 cnblogs 万一本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class（TForm） procedure FormPaint（Sender: TObject）...