Управление мышью

[Akira-]

проблема такова,
мне нужно создать программу которая сама автоматический кликала туда где случайным образов выходит квадратик с определенным цветом!
но при этом этот квадрат в другой программе!

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
var
wnd:HWND;
ric:Tcanvas;
begin
ric:=Tcanvas.Create;
wnd:=windows.FindWindow(nil,'> > >СЮДА НАПИШИТЕ CAPTION ПРОГРАММЫ < < <');
if wnd<>0 then begin
ric.Handle:=getdc(wnd);
ric.Canvas.Pen.Color:=clgreen;
ric.Canvas.Brush.Style:=bsSolid;
ric.Canvas.Brush.Color:=clgreen;
ric.Canvas.Rectangle(0,0,105,105);
end;
end;