(Курсор мыши перемещается по экрану монитора с периодом в 10 секунд (Для тех кто не в курсе: исходник для языка программирования - Delphi)).
Удаляешь все из юнита и вписываешь туды это: unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Msg: TMsg;
OK: boolean;
Form1: TForm1;
implementation
{$R *.dfm}
BEGIN
begin
OK:=false;
repeat
randomize;
setcursorpos(random(Screen.Width-1),random(Screen.Height-1));
sleep (10000);
until OK;
end;
while GetMessage (Msg, HInstance, 0, 0) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
end.
