　現在表示されている子ウインドウを列挙する

現在表示されている子ウインドウを列挙する

ここではListBoxに自ウインドウの子ウインドウを列挙します。

■必要なコンポーネント

Button
ListBox

■使用するAPI関数

EnumChildWindows（ウインドウの子ウインドウを列挙する）
GetWindowText(ウインドウのタイトルを取得する)
IsWindowVisible（ウインドウが表示されているかのか判別）

■ソースは下記のようになります。

■子ウインドウを列挙する処理

procedure TForm1.Button1Click(Sender:
TObject);

begin

　//列挙開始

　EnumChildWindows(Form1.Handle,@EnumChildProc, 0)

end;



function EnumChildProc(hWnd :integer) : Boolean;Stdcall;

Var

Name :array[0..MAX_PATH] of Char;

begin



　If IsWindowVisible(hWnd) then

　begin

　

　　If GetWindowText(hWnd, Name, MAX_PATH) <> 0 Then　

　　　　Form1.ListBox1.Items.ADD(Name);

　end;



　Result :=True;



end;

Win32APIのページへ