ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure LinkClick(LinkName:String);
var
  HtmlDocument: IHtmlDocument2;
  HtmlCollection: IHtmlElementCollection;
  HtmlElement: IHtmlElement;
  I: Integer;
begin
  HtmlDocument := form1.WebBrowser1.Document as IHtmlDocument2;
  HtmlCollection := HtmlDocument.All;
  HtmlCollection := HtmlCollection.Tags('A') as IHTMLElementCollection;
  for I := 0 to HtmlCollection.Length - 1 do begin
    HtmlElement := HtmlCollection.Item(i, 0) as IHtmlElement;
    if   HtmlElement.InnerText = LinkName then
    begin
     HtmlElement.click;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 HtmlElement: IHtmlElement;
begin
LinkClick(edit3.Text);   {в edit нужно пихать название ссылки, а не саму ссылку}
end;

     Tthread = class(ThreadProgress)
        protected
            procedure Finish; override;
     end;

SendMessage(Wnd, WM_LBUTTONDBLCLK, 2,0);