htS北方站长站type
htS北方站长站 TForm1 = class(TForm)
htS北方站长站 Button1: TButton;
htS北方站长站 Button2: TButton;
htS北方站长站 Button3: TButton;
htS北方站长站 procedure Button1Click(Sender: TObject);
htS北方站长站 procedure Button2Click(Sender: TObject);
htS北方站长站 procedure Button3Click(Sender: TObject);
htS北方站长站 private
htS北方站长站 { Private declarations }
htS北方站长站 public
htS北方站长站 { Public declarations }
htS北方站长站 end;
htS北方站长站var
htS北方站长站 Form1: TForm1;
htS北方站长站implementation
htS北方站长站{$R *.dfm}
htS北方站长站procedure speed(count:word);stdcall;
htS北方站长站const
htS北方站长站 ExceptionUsed=$03;
htS北方站长站var
htS北方站长站 IDT:array [0..5]of byte;
htS北方站长站 lpOldGate:dword;
htS北方站长站begin
htS北方站长站 asm
htS北方站长站 sidt IDT
htS北方站长站 mov ebx,dword ptr [IDT+2]
htS北方站长站 add ebx,8*ExceptionUsed
htS北方站长站 cli
htS北方站长站 mov dx,word ptr [ebx+6]
htS北方站长站 shl edx,16d
htS北方站长站 mov dx,word ptr [ebx]
htS北方站长站 mov [lpOldGate],edx
htS北方站长站 mov eax,offset @@Ring0Code
htS北方站长站 mov word ptr [ebx],ax
htS北方站长站 shr eax,16d
htS北方站长站 mov word ptr [ebx+6],ax
htS北方站长站 int ExceptionUsed
htS北方站长站 mov ebx,dword ptr[IDT+2]
htS北方站长站 add ebx,8*ExceptionUsed
htS北方站长站 mov edx,[lpOldGate]
htS北方站长站 mov word ptr [ebx],dx
htS北方站长站 shr edx,16d
htS北方站长站 mov word ptr [ebx+6],dx
htS北方站长站 jmp @@exit
htS北方站长站htS北方站长站 @@Ring0Code:
htS北方站长站 mov al,$34
htS北方站长站 out $43,al
htS北方站长站 mov ax,Count
htS北方站长站 out $40,al
htS北方站长站 mov al,ah
htS北方站长站 out $40,al
htS北方站长站 iretd
htS北方站长站 @@exit:
htS北方站长站 end;
htS北方站长站end;
htS北方站长站procedure TForm1.Button1Click(Sender: TObject);
htS北方站长站begin
htS北方站长站 speed($6000);//慢
htS北方站长站end;
htS北方站长站procedure TForm1.Button2Click(Sender: TObject);
htS北方站长站begin
htS北方站长站Speed($1044);
htS北方站长站end;
htS北方站长站procedure TForm1.Button3Click(Sender: TObject);
htS北方站长站begin
htS北方站长站speed($500);
htS北方站长站end;
htS北方站长站end.
htS北方站长站htS北方站长站
共有 0 位网友发表了评论 此处只显示部分留言 点击查看完整评论页面