Delphi调用WinAPI 字符及字符串函数（9）

2017年02月06日 58 阅读

Delphi调用WinAPI 字符及字符串函数（9）2012-04-08 cnblogs 万一lstrcat - 合并字符串unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; But...

Delphi调用WinAPI 字符及字符串函数（10）

2017年02月06日 57 阅读

Delphi调用WinAPI 字符及字符串函数（10）2012-04-08 cnblogs 万一lstrcpy - 复制字符串unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Bu...

Delphi调用WinAPI 字符及字符串函数（11）

2017年02月06日 62 阅读

Delphi调用WinAPI 字符及字符串函数（11）2012-04-09 cnblogs dellstrcpyn - 复制字符串, 同时指定要复制的长度unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1...

Delphi调用WinAPI 字符及字符串函数（12）: lstrlen - 串长度

2017年02月06日 59 阅读

Delphi调用WinAPI 字符及字符串函数（12）: lstrlen - 串长度2012-04-09 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Bu...

Delphi调用WinAPI 字符及字符串函数（13）

2017年02月06日 60 阅读

Delphi调用WinAPI 字符及字符串函数（13）2012-04-09 cnblogs 万一lstrcmp、lstrcmpi - 对比串lstrcmp 区分大小写; lstrcmpi 不区分大小写. 返回值: -1、0、1, 其中 0 表示相 同.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dial...

Delphi调用WinAPI 字符及字符串函数（14）: CharToOem、OemToChar

2017年02月06日 61 阅读

Delphi调用WinAPI 字符及字符串函数（14）: CharToOem、OemToChar2012-04-09 cnblogs 万一CharToOemBuff、OemToCharBuff 与 CharToOem、OemToChar 的区别只是前者可以指 定要转换的字符数.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls...

Delphi调用WinAPI 字符及字符串函数（15）: CharNext、CharPrev

2017年02月06日 61 阅读

Delphi调用WinAPI 字符及字符串函数（15）: CharNext、CharPrev2012-04-09 cnblogs 万一unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton;...

初学Delphi嵌入汇编[1] - 汇编语言与机器语言

2017年02月06日 58 阅读

初学Delphi嵌入汇编[1] - 汇编语言与机器语言2012-04-10万一非科班出身, 现在才接触汇编, 惭愧呀, 好好学！主选课本是清华大学王爽老师的《汇编语言》. 推荐 王爽老师的汇编网------------------------------------------------------------------------- -------汇编语言之前是机器语言.机器语言是机器指令的集合, 机器指令是一系列二进制数字, 计算机将之转换为一系 ...

初学Delphi嵌入汇编[2] - 汇编语言关键字

2017年02月06日 59 阅读

初学Delphi嵌入汇编[2] - 汇编语言关键字2012-04-10 cnblogs 万一汇编语言不区分大小写.关键字用途AHALANDAXBHBLBPBXBYTECHCLCSCXDHDIDLDSDWORDDXEAXEBPEBXECXEDIEDXEIPESESIESPFSGSHIGHLOWMODNOTOFFSETORPTRQWORDSHLSHRSISPSS ST TBYTE TYPE WORDXOR非常遗憾, 现在我不能给每个关键字做一个哪怕是非常简单的...

初学Delphi嵌入汇编[3] - 第一个Delphi与汇编的例子

2017年02月06日 66 阅读

初学Delphi嵌入汇编[3] - 第一个Delphi与汇编的例子2012-04-10 cnblogs 万一前面知道了一个汇编的赋值指令（MOV）, 再了解一个加法指令（ADD）, 就可以做个例子 了.譬如: ADD AX,BX; 这相当于 Delphi 中的 AX := AX + BX;另外提前来个列表 - Delphi 可以用汇编管理以下寄存器:32 位寄存器: EAX EBX ECX EDX ESP EBP ESI EDI16 位寄存器: AX BX...

初学Delphi嵌入汇编[4] - 寄存器在过程与函数中的使用

2017年02月06日 61 阅读

初学Delphi嵌入汇编[4] - 寄存器在过程与函数中的使用2012-04-10 cnblogs 万一CPU 提供了诸多寄存器, 但在 Delphi 的过程和函数中, 只有 EAX ECX EDX 三个寄 存器可以自由使用;如果改变了其他寄存器, 在过程和函数结束前要给恢复.记得前面学习过 Delphi 的过程和函数默认的调用约定是 Register , 前三个参数通 过寄存器传递, 其他参数存与栈.它所指的三个寄存器就应该是 EAX ECX EDX 了...

初学Delphi嵌入汇编[5] - 寄存器在过程与函数中的使用 - 续

2017年02月06日 59 阅读

初学Delphi嵌入汇编[5] - 寄存器在过程与函数中的使用 - 续2012-04-10 cnblogs 万一//测试寄存器: 如果只有两个参数, 看看 ECX EDX 谁来接受第二个参数procedure Proc（x,y: Integer）;var a,b: Integer;begin asm MOV a,ECX MOV b,EDX end; ShowMessage（IntToStr（a） + #44 + IntToStr（b））;end;//测...

初学Delphi嵌入汇编[6] - & 操作符

2017年02月06日 59 阅读

初学Delphi嵌入汇编[6] - & 操作符2012-04-12 博客园 万一//在汇编中访问 Delphi 的变量可以使用 & 操作符procedure Proc（str1,str2: string）;var s1,s2: string;begin asm mov ecx, &str1 {} mov edx, &str2 mov &s1, ecx {} mov &s2, edx end; Sho...

初学Delphi嵌入汇编[7] - 使用常量

2017年02月06日 56 阅读

初学Delphi嵌入汇编[7] - 使用常量2012-04-12 博客园 万一//在汇编中使用常量var a: Integer;const n = $10;begin asm mov ecx, 10 {使用十进制常数} mov a, ecx end; ShowMessage（IntToStr（a））; {10} asm mov ecx, $10 {使用十六进制常数} mov a, ecx end; ShowMessage（In...

初学Delphi嵌入汇编[8] - 8 位寄存器、16 位寄存器与 32 位寄存器

2017年02月06日 68 阅读

初学Delphi嵌入汇编[8] - 8 位寄存器、16 位寄存器与 32 位寄存器2012-04-12 博客园 万一王爽老师书上说, CPU 内部主要就是寄存器.现在我们在 32 位的系统下工作, 当然主要使用的是 32 位寄存器; 那它和 8 位、 16 位的寄存器又有什么关系呢？从网上找到一个简洁明了的图片:EAX 是 32 位的, 也就是 4 个字节大小; 它的低两位就是 AX;AX 是 16 位的, 又分 2 个字节; 它的高字节是 AH、低字节是...

初学Delphi嵌入汇编[9] - asm 可以代替 begin

2017年02月06日 52 阅读

初学Delphi嵌入汇编[9] - asm 可以代替 begin2012-04-12 博客园 万一//可以用 asm 代替 beginfunction Fun（x: Integer）: Integer;asm mov eax, x inc eaxend;{ 汇编中的 inc 指令和 Delphi 中的 inc 是一样的; 本例也同时证明 eax 寄存器确实保存着函数的返回值.}procedure TForm1.Button1Click（Sender: TO...

初学Delphi嵌入汇编[10] - 函数返回值与寄存器

2017年02月06日 60 阅读

初学Delphi嵌入汇编[10] - 函数返回值与寄存器2012-04-12 博客园 万一返回类型寄存位置Char、ByteAL 寄存器SmallInt、WordAX 寄存器Integer、LongWord、AnsiString、Pointer、ClassEAX 寄存器Real48EAX 寄存器中是栈内返回值的指针Int64EDX、EAX 寄存器对Single、Double、Extended、Comp栈首寄存器 ST（0）短字符串或变体类型在@Result...

初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数

2017年02月06日 60 阅读

初学Delphi嵌入汇编[11] - 用汇编重写一个Delphi函数2012-04-13 博客园 万一//Delphi 函数function DelphiFun（x: Integer）: Integer;begin Result := x * 2;end;//汇编函数, 和上面的函数是同样的功能function AsmFun（x: Integer）: Integer;asm add eax, eax {eax 可以获取第一个参数, 同时又是函数的返回值,...

初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result

2017年02月06日 52 阅读

初学Delphi嵌入汇编[12] - 在汇编代码中可以直接使用Result2012-04-13 博客园 万一//在汇编代码中使用 Resultfunction Fun（x: Integer）: Integer;asm mov ecx, &x dec ecx {汇编中的 dec 是减 1 指令, 和 Delphi 是一样的} mov @Result, ecx {在本例中去掉 @ 也可以, 暂时不知怎么回事}end;//测试procedure...

初学Delphi嵌入汇编[13] - 地址参数用 [] 取值

2017年02月06日 49 阅读

初学Delphi嵌入汇编[13] - 地址参数用 [] 取值2012-04-13 博客园 万一//关于地址参数（var/out）function Fun（var x,y: Integer）: Integer;asm mov eax, x {现在 eax 中只是 x 的地址} mov eax, [eax] { [eax] 是取值, 是不是类似于 P^ ？ } mov edx, y add eax, [edx]//mov @Result, eax ...