| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

EnumChildWindows дает только 1й элемент [XP]

IceBeerg ©   (2014-05-26 16:41:00) 

function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;stdcall;
var
 Str:PChar;
begin
 GetMem(Str,256);
 If ChWHD<>0 Then
    Begin
     GetWindowText(ChWHD,Str,255);
     if Length(Str)>0 Then Form1.Memo1.Lines.Add(SysToUTF8(Str));
     GetClassName(ChWHD,Str,255);
     if Length(Str)>0 Then Form1.Memo1.Lines.Add(SysToUTF8(Str));
    end;
 FreeMem(Str,256);
end;

procedure TForm1.Button1Click(Sender:TObject);
var
 WND:HWND;
begin
 WND:=FindWindow(PChar('Notepad'),PChar(UTF8ToSys('Безымянный - Блокнот')));
 If WND<>0 Then
    Begin
     EnumChildWindows(WND,@GetChieldWindow,0);
    end;
end;
В Memo1 только Edit и все. Почему нет остального?

---

IceBeerg   (2014-05-26 16:50:00) [1]

> RWolf ©   (26.05.14 16:46) [1]
> function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;
> stdcall;
>
> function, заметь.

Блииин... Во туплю... Спасибо!

---

RWolf   (2014-05-26 16:46:00) [2]

function GetChieldWindow(ChWHD:HWND;Param:LongInt):LongBool;stdcall;

function, заметь.

---

Наверх