Господа программеры, не могу понять в чем у меня баг подсобите....
вот код:
procedure get_child(h:wnd);stdcall;
begin
getwindowtext(h,тут буфер, тут размер);
listbox1.items.add(' This Child -> '+буфер);
result:=true;
end;
procedure get_w(h:wnd);stdcall;
begin
getwindowtext(h,тут буфер, тут размер);
enumchildwindow(h,@get_child,0);
listbox1.items.add(буфер);
result:=true;
end;
procedure get_all_window;
begin
enumwindows(@get_w,0);
end;
Короче вроде работает но, после первого перечисления дочерних окон вываливает (без ошибка), просто завершает перебор окон...
Вопрос может баг в исходнике, или кто знает как все окна перечислить, и родительские и дочернии...
[Win32] А может вместо процедур функции попробовать, иначе как ты результаты возвращаешь03.07.03 17:09 Автор: Cyril <sc> Статус: Member
Скажи лучше почему при перечислении дочерних окон после первого перебора, больше не заходит в эту функцию...
Да ладно тебе, Тёмный Шлем из хрен знает откуда, никто над тобой не прикалывается ;-)04.07.03 10:30 Автор: HandleX <Александр М.> Статус: The Elderman Отредактировано 04.07.03 10:36 Количество правок: 1
BOOL EnumWindows(
WNDENUMPROC lpEnumFunc, // pointer to callback function
LPARAM lParam // application-defined value
);
BOOL CALLBACK EnumWindowsProc(
HWND hwnd, // handle to parent window
LPARAM lParam // application-defined value
);
Тут же явно видно, что колбяка суть функция, которая возвращает булевое выражение... А ежели у тебя колбяка Procedure, то сорвёшь себе стек.
Вот правильная декларация колбяки на Delphi:
Function EnumWindowsProc(aWnd: HWND; aLParam: LPARAM): BOOL; StdCall;
Begin
//Не забудь вернуть TRUE, если хочецца продолжать перебор ;-)
Result := True;
End;
А у тебя — что это за процедура с одним параметром?
procedure get_w(h:wnd);stdcall;
begin
getwindowtext(h,тут буфер, тут размер);
enumchildwindow(h,@get_child,0);
listbox1.items.add(буфер);
result:=true;
end;
procedure get_all_window;
begin
enumwindows(@get_w,0); //Вот тут у тебя косяк — толкаешь адрес неправильной колбяки!
end;