procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
LoadNTDriver('kmclass','kmclass.sys');
myhandle:=CreateFile('\\.\kmclass',
GENERIC_WRITE or GENERIC_READ,
0,
nil,
OPEN_EXISTING,
0,
0);
SetHandle(myhandle);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
CloseHandle(myhandle);
UnloadNTDriver('kmclass');
end;
procedure TForm1.Button5Click(Sender: TObject);
var
hand:HANDLE;
begin
hand:=0;
SetHandle(hand);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
point:TPoint;
begin
//myKeyDown(88);
//Sleep(100);
//myKeyUp(88);
if windows.GetAsyncKeyState(16)=-32767 then
begin
MouseMoveRELATIVE(50,0);
