■ソース(Delphi7) var arrRec: array of HWND; // ↑EnumWindowsで取得したHWNDの配列
procedure TForm1.Button2Click(Sender: TObject); var iM: Integer; begin for iM := 0 to High(arrRec) do begin if (GetWindowLong(arrRec[iM], GWL_STYLE) and WS_CHILD) <> 0 then Memo1.Lines.Add( IntToStr(arrRec[iM]) +', '+ IntToStr(GetWindowLong(arrRec[iM], GWL_STYLE) and WS_CHILD) ); end; end;