nonVCL Treeview rekursiv durchgehen

[ibp]

Delphi-Quellcode:

  procedure DoClear(Tree: THandle; Item: HTREEITEM; Code: Integer);
  var
    tvi: TTVItemW;
  begin
    if not Assigned(Item) then exit;

    ZeroMemory(@tvi, sizeof(TTVItemW));
    tvi.hItem := Item;
    tvi.mask := TVIF_PARAM or TVIF_TEXT;

    DoClear(Tree, Treeview_GetNextItem(Tree, Item, TVGN_CHILD), TVGN_NEXT);

    if CommCtrlW.TreeView_GetItemW(Tree, tvi) then
    begin
      if Assigned(TObject(tvi.lParam)) then
        TObject(tvi.lParam).Free;
    end;
  end;

versuch es mal so...