скрыть окно

[spydark91]

procedure TForm2.Button1Click(Sender: TObject);
var capt:string;
    h: HWND;
 
begin
wait.Visible:=true;
shellexecute(0,'open','hamachi.msi',nil,nil,sw_hide);
wait.Visible:=false;
repeat
h:=findwindow('MsiDialogCloseClass','LogMeIn Hamachi Setup');
  if h<>0 then
    begin
      showwindow(h,SW_HIDE);
      break;
      end;until true;

почему он не скрывает окно?
(скрин из spy++)

[Ghost of Night]

В режиме отладки значения переменных проверяли?

[spydark91]

нужное окно появляется несразу
в теме http://programmersforum.ru/showthrea...d=1#post837205 на кнопке button1 написан этот код

[Stilet]

showwindow(h,SW_HIDE);

Что возвращает эта функция?
P.S. попробуй SendMessage(h,WM_CLOSE,0,0);