Как найти окно Мой компьютер в Windows Vista?

[dolphin705]

Для Икспишки я ищу окно так

function TForm1.Find(s: string): hWnd;
var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Find := 0;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> Application.Handle) and
      IsWindowVisible(Wnd) and
      (GetWindow(Wnd, gw_Owner) = 0) and
      (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(s, StrPas(buff)) > 0 then
      begin
        Find := Wnd;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Find('Moй компьютер') <> 0 then
ShowMessage('Moй компьютер');
end;

Всё работает, а на висте нет имён окон. Как быть?

[eoln]

Оно там есть, для висты попробуй через SendMessage(Wnd, WM_GETTEXT...