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

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: pop eax

jmp @label2 db $E8,$E8 @label2: add eax,2 jmp @label3 db $E8 @label3: push eax ret db $E8

@label4: end;

if a>b then

Messagebox(Handle,'a>b','info',MB_OK); end; end.