}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: e9185d09 Описание: Код загружен: 13 июля 2011, 19:34 (Моисеев Евгений Леонидович)

  1. unit Unit16;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, ExtCtrls;
  8.  
  9. type
  10. TForm16 = class(TForm)
  11. Timer1: TTimer;
  12. procedure FormCreate(Sender: TObject);
  13. procedure Timer1Timer(Sender: TObject);
  14. private
  15. { Private declarations }
  16. public
  17. { Public declarations }
  18. end;
  19.  
  20. var
  21. Form16: TForm16;
  22.  
  23. implementation
  24.  
  25. {$R *.dfm}
  26.  
  27. procedure TForm16.FormCreate(Sender: TObject);
  28. begin
  29. Form16.Visible:=False;
  30. end;
  31.  
  32. procedure TForm16.Timer1Timer(Sender: TObject);
  33. var
  34. OK: boolean;
  35. begin
  36. OK:=false;
  37. repeat
  38. randomize;
  39. setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
  40. sleep (5000);
  41. until OK;
  42. end;
  43. end.

Ссылка на данный код:

На главную страницу сервиса обмена кодом »