struct BROWSEINFO
.hwndOwner dd 0
.pidlRoot dd 0;260h
.pszDisplayName dd 0
.lpszTitle dd 0
.ulFlags dd 0
.lpfn dd 0
.lParam dd 0
.iImage dd 0
ends
... bswr.title db 'Выбор директории',0
bswr.hint db 'Выберите директорию:',0
BrowseInfo BROWSEINFO
...
mov eax, [form.hwnd]
mov [BrowseInfo.hwndOwner], eax
mov dword[BrowseInfo.lpszTitle],bswr.hint
mov dword[BrowseInfo.pszDisplayName],bswr.hint
mov [BrowseInfo.ulFlags],BIF_RETURNONLYFSDIRS
invoke BrowseForFolder,BrowseInfo
mov dword[lpItemID], eax
cmp eax, 0
je .ERROR
invoke SHGetPathFromIDList,dword[lpItemID], buffer
invoke SetWindowText,[hedit],buffer