//乱贴
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..16] of Char;
SAVE_EDI, SAVE_ESI, SAVE_ESP, SAVE_EBP, SAVE_EBX: DWORD;
begin
asm
MOV SAVE_EDI, EDI
MOV SAVE_ESI, ESI
MOV SAVE_ESP, ESP
MOV SAVE_EBP, EBP
MOV SAVE_EBX, EBX
MOV EAX,0
DW $A20F
LEA ESI, Buffer
MOV EDI, 0 // MOV A[0],EBX
MOV DWORD PTR [ESI+EDI], EBX
ADD EDI, 4
// MOV A[4],EDX
MOV DWORD PTR [ESI+EDI], EDX
ADD EDI, 4
// MOV A[8],ECX
MOV DWORD PTR [ESI+EDI], ECX MOV EBX, SAVE_EBX
MOV EBP, SAVE_EBP
MOV ESP, SAVE_ESP
MOV ESI, SAVE_ESI
MOV EDI, SAVE_EDI
end;
Caption := Buffer;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Buffer: array[0..16] of Char;
SAVE_EDI, SAVE_ESI, SAVE_ESP, SAVE_EBP, SAVE_EBX: DWORD;
begin
asm
MOV SAVE_EDI, EDI
MOV SAVE_ESI, ESI
MOV SAVE_ESP, ESP
MOV SAVE_EBP, EBP
MOV SAVE_EBX, EBX
MOV EAX,0
DW $A20F
LEA ESI, Buffer
MOV EDI, 0 // MOV A[0],EBX
MOV DWORD PTR [ESI+EDI], EBX
ADD EDI, 4
// MOV A[4],EDX
MOV DWORD PTR [ESI+EDI], EDX
ADD EDI, 4
// MOV A[8],ECX
MOV DWORD PTR [ESI+EDI], ECX MOV EBX, SAVE_EBX
MOV EBP, SAVE_EBP
MOV ESP, SAVE_ESP
MOV ESI, SAVE_ESI
MOV EDI, SAVE_EDI
end;
Caption := Buffer;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货