Программно нажать кнопку в чужом окне Delphi7

[AlexP_77]

Народ подскажите как программно нажать кнопку Сохранить в окне загрузки IE. Я пишу прогу которая должна автоматический загружать из интернета архив. Использую для этих целей объект WebBrowser, который насколько я знаю построен на движке IE (Delhi7). Нашёл на различных форумах решение обсалютно такой же и похожих проблем но почему то не срабатывает. Вот 2 листинга:
1)

var h1,h2:hwnd;
begin
   h1:=0;
  h2:=0;
  h1 := FindWindow ('#32770', 'Загрузка файла');
  if h1<> 0 then
  begin
        h2 := FindWindowEx(h1, 0, nil, '&Сохранить');
    if (h2<>0) then
    begin
      //Устанавливаем фокус на кнопку и активируем её - автоматом на окно
      SetForegroundWindow(h2);
      showmessage('2');
      SendMessage(h2, WM_ACTIVATE, 1, 0);
      SendMessage(h2, WM_ENABLE, 1, 0);
      SendMessage(h2, WM_SETFOCUS, 1, 0);

      //Переносим фокус на другое окно, чтобы перерисовалось окно IE
      SetForegroundWindow(handle);
      Application.ProcessMessages;
      SetForegroundWindow(h2);
      SendMessage(h2, WM_SETFOCUS, 1, 0);
      Sleep(1000); //Делаем обязательную паузу, чтобы окно успело прорисоваться

      //Посылаем Enter кнопке
      keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY,0);
      keybd_event(VK_RETURN,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

    end;
  end;

2)

var Wind,Btn:hwnd;
begin
  if FindWindow(nil, 'Загрузка файла') <> 0 then
  begin
    Wind := FindWindow(nil, 'Загрузка файла');
    Btn := FindWindowEx(Wind, 0, nil, 'Сохранить');
    SendMessage(Btn, BM_CLICK, 0, 0);
  end;

Подскажите в чём косяк. Может кто то знает другой способ.

[Tip.the.besT]

А зачем через браузер, если хочешь скрытно, то качай через indy или synapse.