變速齒輪Delphi實現

　　interface

　　uses
　　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　Dialogs, StdCtrls;

　　type
　　TForm1 = class(TForm)
　　Button1: TButton;
　　Button2: TButton;
　　Button3: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure Button2Click(Sender: TObject);
　　procedure Button3Click(Sender: TObject);
　　private
　　{ Private declarations }
　　public
　　{ Public declarations }
　　end;

　　var
　　Form1: TForm1;

　　implementation

　　{$R *.dfm}
　　procedure speed(count:Word);stdcall;
　　const
　　ExceptionUsed=$03;
　　var
　　IDT:array [0..5]of byte;
　　lpOldGate:dWord;
　　begin
　　asm
　　sidt IDT
　　mov ebx,dWord ptr [IDT+2]
　　add ebx,8*ExceptionUsed
　　cli
　　mov dx,Word ptr [ebx+6]
　　shl edx,16d
　　mov dx,Word ptr [ebx]
　　mov [lpOldGate],edx
　　mov eax,offset @@Ring0Code
　　mov Word ptr [ebx],ax
　　shr eax,16d
　　mov Word ptr [ebx+6],ax
　　int ExceptionUsed
　　mov ebx,dWord ptr[IDT+2]
　　add ebx,8*ExceptionUsed
　　mov edx,[lpOldGate]
　　mov Word ptr [ebx],dx
　　shr edx,16d
　　mov Word ptr [ebx+6],dx
　　jmp @@exit

　　
　　@@Ring0Code:
　　mov al,$34
　　out $43,al
　　mov ax,Count
　　out $40,al
　　mov al,ah
　　out $40,al
　　iretd
　　@@exit:
　　end;

　　end;

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　speed($6000);//慢
　　end;

　　procedure TForm1.Button2Click(Sender: TObject);
　　begin
　　Speed($1044);
　　end;

　　procedure TForm1.Button3Click(Sender: TObject);
　　begin
　　speed($500);
　　end;

　　end.