程序中使用花指令(Delphi源碼)

1、程序中使用花指令(Delphi源碼)unit Ex3Main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton;

2、 Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; StatusBar1: TStatusBar; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5C

3、lick(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button12Click(Sende

4、r: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfm/第1種花指令procedure TForm1.Button1Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm jb label jnb label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','i

5、nfo',MB_OK);end;/第2種花指令procedure TForm1.Button2Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm je label jne label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第3種花指令procedure TForm1.Button3Click(Sender: TObject);var a,b:Integer;beg

6、in a:=20;b:=10; asm jbe label ja label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第4種花指令procedure TForm1.Button4Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm js label jns label db $E8 label: end; if a>b then Messagebox(Handle,&#

7、39;a>b','info',MB_OK);end;/第5種花指令procedure TForm1.Button5Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm jpe label jpo label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第6種花指令procedure TForm1.Button6Click(Sender: TObjec

8、t);var a,b:Integer;begin a:=20;b:=10; asm jl label jge label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第7種花指令procedure TForm1.Button7Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm jle label jg label db $E8 label: end; if a>b the

9、n Messagebox(Handle,'a>b','info',MB_OK);end;/第8種花指令procedure TForm1.Button8Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm jz label jnz label db $E8 label: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第9種花指令procedure TForm1.Button

10、9Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm push ecx xor ecx,ecx jcxz label db $E8 label: pop ecx end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第10種花指令procedure TForm1.Button10Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm jl labe

11、l1 label2: jmp label3 db $E8 label1: jz label2 label3: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第11種花指令procedure TForm1.Button11Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm call label1 db $E8 jmp label2 db $E8 label1: pop eax jmp label3 db $E8,$E8,$E8 label3: inc eax jmp label4 db $E8,$E8,$E8 label4: jmp eax db $E8 label2: end; if a>b then Messagebox(Handle,'a>b','info',MB_OK);end;/第12種花指令procedure TForm1.Button12Click(Sender: TObject);var a,b:Integer;begin a:=20;b:=10; asm call label1 db $E8,$E8 jmp label4 label1