Поиск окон

[Лубышев]

Как найти все окна в системе и переписать в список StringGrid.
может я не так выражаюсь, но мне надо короче:

var H:HWND:
...
begin
...
FindWindow('тратата','ляляля');
...
end;

вот мне нужно знать 'тратата', -класс и 'ляляля' - имя
для каждого окна в системе, для того чтобы в дальнейшем управлять ими.

[Terran]

Если я правильно понял, вы хотите считать все заголовки окон в системе и их хенделы? Если да, то вот этот пример вам поможет:

Вложение 4836

[Stilet]

Загляни ка сюда: http://programmersforum.ru/showthrea...ow_Crtfox_Enum

[Лубышев]

спасибо!!!!

Terran!!! ссылка не работает...

[Stilet]

ссылка не работает...

Все работает, кликай сильнее )

[Terran]

Попробуй эту: http://slil.ru/25984704

[Лубышев]

Ну, я так понимаю все обьекты в окне тоже Хендлы имеют?
Я допустим знаю хендл окна, а как узнать список хендлов обьектов принадлежаших окну(Ну там например кнопок и т.д.)?

[Noor]

Ну кнопка на форме это дочернее окно (если можно так выразиться), пользуйся поиском дочерних окон.
Смотри пример тут

обрати внимание на
EnumChildWindows - Просматривает все дочерние окна
FindWindowEx - Ищет дочернее окно
IsChild - Дочернее ли окно

и вот ТУТ обсуждают схожую тему
и вот Не сочтите за рекламу сайта !!!

[Лубышев]

Noor, спасибо за подборку!

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var buf:array[0..127]of char;
    WH:HWND;
begin
  WH:=Handle;
  repeat
   WH:=GetNextWindow(WH,GW_HWNDNEXT);
   GetWindowText(WH,buf,128);
   memo1.Lines.Add(buf);
  until (WH=0);
end;