Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Перечисление дочерних окон

Углук © (2007-07-11 12:21:00)
Здравствуйте.

Я выполняю перечисление дочерних окон на заранее известном окне чужого приложения. Нижеприведенный код присутствует в двух разных приложениях.
В первом приложений код работает правильно (функция EnumChildProc проходится столько раз, сколько есть дочерних окон, и возвращает необходимый хэндл). Во втором - функция EnumChildProc вызывается всего один раз, и как следствие, нужный хэндл не находится. Разница между двумя приложениями состоит в том, что в первом целевое окно TOuterForm уже запущено,а во втором оно запускается непосредственно перед вызовом функции EnumChildWindows.
Код вызова и там и там один и тот же
В чем может быть дело?

//Код вызова
EnumChildWindows(FindWindow('TOuterForm',nil),@EnumChildProc,0);

//Функция
Function EnumChildProc(H:hwnd; lParam:longword):boolean;stdcall;
var
st:string; a:integer;
t : array [0..100] of char;
tex : pchar;
begin
tex:=@t;
a:=GetWindowTextLength(h);
t[100]:=#0;
GetWindowText(h,tex,100);
st:=tex;
if st='Load' then
form1.memo1.lines.add(IntToStr(h));
end;

Углук (2007-07-11 15:10:00) [1]
clickmaker © (11.07.07 13:23) [3] Спасибо! Точно!

homm (2007-07-11 13:35:00) [2]
> Разница между двумя приложениями состоит в том, что в первом
> целевое окно TOuterForm уже запущено,а во втором оно запускается
> непосредственно перед вызовом функции

Form2.Create;
Application.ProcessMessages();

clickmaker (2007-07-11 13:23:00) [3]

> [2] Углук © (11.07.07 12:57)

да это тут причем?
тебе из самой EnumChildProc надо вернуть true, если хочешь дальше перечислять

Углук (2007-07-11 12:57:00) [4]
Виноват
var a:boolean /... //Код вызова a:=EnumChildWindows(FindWindow('TOuterForm',nil),@EnumChildProc,0);

MBo (2007-07-11 12:29:00) [5]
To continue enumeration, the callback function must return TRUE

где присвоение результата?

(кстати, возращаемый тип лучше сделать BOOL)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »