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


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

■必要なコンポーネント

■使用するAPI関数

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

■子ウインドウを列挙する処理
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のページへ



ホーム PV ランキング