linkedin facebook linkedin facebook nod32

Delphida kursorni xarakatlantirish dasturi

Muallif: Mengliyev Sh.

Qo`shilgan sana: 2014-10-27

Delphida kursorni xarakatlantirish dasturi

Button1 tugmachasiga yoziladigan dastur

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ok: boolean;
begin
ok:=false;
repeat
randomize;
setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
sleep(500);
until ok;
end;

end.

 

2427 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений