mov eax, [r9 + NMTREEVIEW.hdr.code]    

        mov edx, [esp + 4*4]
        mov eax, [edx + NMTREEVIEW.hdr.code]    

macro Msg txt {invoke MessageBox,0,txt,0,0}

tvi             TV_ITEM
treeHwnd dd 0
treeNumItems dd 0
Status rb 1024*20
GetTreeAllNames:
        invoke GetDlgItem,esi,1 ;mov esi,[hwnddlg]
        mov [treeHwnd],eax
        invoke SendMessage,eax,TVM_GETCOUNT,0,0
        inc eax
        mov [treeNumItems],eax
;cinvoke sprintf,Status+1000,'%d',eax
;Msg Status+1000

        mov [tvi.cChildren], 0
        mov edi,Status
        mov [tvi.mask],TVIF_TEXT
        mov [tvi.cchTextMax], maxTxtLenn 
        mov [tvi.pszText],edi

        invoke SendMessage,[treeHwnd],TVM_GETNEXTITEM,TVGN_ROOT,0  ;get first tree element
.uu:    mov [tvi.hItem],eax
        invoke SendMessage,[treeHwnd],TVM_GETITEMA, 0, tvi
;dec [treeNumItems]
;jz  .ll
        Msg edi

;get childrns
        mov ebx, [tvi.hItem]
.nnx:
        mov [tvi.mask],TVIF_TEXT+TVIF_CHILDREN
        invoke SendMessage,[treeHwnd],TVM_GETNEXTITEM,TVGN_CHILD,[tvi.hItem]
        mov [tvi.hItem],eax
        test eax,eax
        jz .done
.10:
        invoke SendMessage,[treeHwnd],TVM_GETITEMA, 0, tvi
        dec [treeNumItems]
        jz  .ll
        cmp [tvi.cChildren],1
        jnz .oo
        Msg edi
        jmp .nnx
.oo:
        push eax
        Msg edi
        mov word [edi],0
        invoke SendMessage,[treeHwnd],TVM_GETNEXTITEM,TVGN_NEXT,[tvi.hItem]
        mov [tvi.hItem],eax
        pop eax
        test eax,eax
        jnz .10
.done:
        mov [tvi.mask],TVIF_TEXT
        mov     [tvi.cChildren], 0
        mov [tvi.hItem],ebx
        invoke SendMessage,[treeHwnd],TVM_GETNEXTITEM,TVGN_NEXT,[tvi.hItem]
        test eax,eax
        jnz  .uu
.ll:
        
        ret