РАбота с Мышью

[serg90]

ЗДраствуйте дорогие программисты.Прошу помощи.Я только начал изучать Delphi и мне нужно пару советов.Помогите пожалуйста в одной программке.Я написал мини браузер.А теперь мне нужно осуществить работу с мишью.НУжно что бы при загрузке страницы курсор сканировал содержимое и при нахождении ссылки имитировал нажатие левой кнопки.С имитировать движение мыши я могу, а вот что бы курсор читал страницу и нажимал на ссылку....как описать это событие?

[ArtGrek]

что бы курсор читал страницу

попробуи его handel наити

type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Timer1: TTimer; 
    procedure Timer1Timer(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
  private 
    procedure ShowHwndAndClassName(CrPos: TPoint); 
  public 

end; 

var 
  Form1: TForm1; 

implementation 

{$R *.DFM} 

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  rPos: TPoint; 
begin 
  if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos); 
end; 

procedure TForm1.ShowHwndAndClassName(CrPos: TPoint); 
var 
  hWnd: THandle; 
  aName: array [0..255] of Char; 
begin 
  hWnd := WindowFromPoint(CrPos); 
  Label1.Caption := 'Handle :  ' + IntToStr(hWnd); 

  if Boolean(GetClassName(hWnd, aName, 256)) then 
    Label2.Caption := 'ClassName :  ' + string(aName) 
  else 
    Label2.Caption := 'ClassName :  not found'; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Form1.FormStyle := fsStayOnTop; 
  Timer1.Interval := 50; 
end;

если получица наити handel

нажимал на ссылку

sendmessage(handel,bl_click, 0,0);

а если по другому наидеш то можно просто, привести мыш в нужные координаты
OnMouseDown //в том месте где нашел

ЗЫ. красным может быть я не правельно записал, не помню

[Stilet]

У-у-у как все...
А просто распарсить страницу, выделив список ссылок уже не модно?
Твой браузер на основе WebBrowser? У него есть возможность в цикле получить список всех ссылок.
И нечего курсор напрягать, это не его работа.

[serg90]

Спасибо ArtGrek) А на счет другого варианта, нужно будет попробовать конечно розобратся)

Есь.Вот так вот написал.А почему значения handel при каждом повторном запуске меняются?И не находит handel ссылки.ТОлько кнопок, формы и т.д.

[ArtGrek]

перечетаи лучше ответ Stilet
так правельне, я просто об етом не знал

[serg90]

Хорошо.Спасибо