TreeView kopieren

[toms]

Hi,

Möchte eine TreeView Struktur in einen TTreeView kopieren.
(Auch wenn der TreeView in einer anderen Application ist)

Das funktioniert schon mal ganz gut, aber es durchlauft nicht alle
Knoten. Irgendwo ist an der Rekursion was nicht richtig.
Kann mir da jemand weiterhelfen?

danke!

// Ein vollständiges Beispielprojekt befindet sich in der Anlage

Delphi-Quellcode:

  procedure AddNodes(hTree: HWND; ASrc: HTREEITEM; ADst: TTreeNode);
  var
    NextDst: TTreeNode;
    NextSrc: HTREEITEM;
  begin
    {if not Assigned(ASrc) then
     Exit;}

    TVItem.hItem := ASrc;
    TVItem.mask := TVIF_TEXT or TVIF_IMAGE or TVIF_PARAM;
    MM.Write(TVItem, PrTVItem, SizeOf(TTVItem));
    {Get Next TreeView Item}
    TreeView_GetItem(TreeWnd, PrTVItem^);

    {Add to our TreeView }
    NextDst := Form1.TreeView1.Items.AddChild(ADst, MM.ReadStr(PrText));

    {Get Next TreeView Item}
    NextSrc := TreeView_GetChild(hTree, ASrc);
    while Assigned(NextSrc) do
    begin
     AddNodes(hTree, NextSrc, NextDst);
     NextSrc :=  TreeView_GetNextItem(hTree, NextSrc, TVGN_NEXT);
    end;
  end;