在PB中如何用API实现目录的选择

[lovecity520]

我现在用的
Function unsignedlong SHGetPathFromIDListA( unsignedlong pidl, ref string pszPath) Library 'shell32'
Function unsignedlong SHBrowseForFolderA(Ref BROWSEINFO lpbrowseinfo ) Library 'shell32'
Subroutine CoTaskMemFree(ulong idlist) Library 'ole32'

但是他有一个类型，，我怎么也想不明白，就是BROWSEINFO类型，请问手指点

[lovecity520]

自已先顶一下吧，，

[dawugui]

我有源码中的一段代码:

/********************************************************************
BrowseForFolder

<DESC> Open the browse for folder dialog and return the
selected directory.</DESC>

<RETURN> String: Folder Selected.</RETURN>

<ACCESS> Public

<ARGS> awi_Parent: Parent Window.
as_Caption: Caption to display on dialog.</ARGS>

<USAGE> lnca_BFF.BrowseForFolder( parent, 'caption!' )</USAGE>

********************************************************************/
browseinfo lstr_bi
itemidlist lstr_idl
unsignedlong ll_pidl
unsignedlong ll_r
Integer li_pos
String ls_Path
unsignedlong ll_Null

SetNull( ll_Null )

lstr_bi.hOwner = Handle( awi_Parent )
lstr_bi.pidlRoot = 0
lstr_bi.lpszTitle = as_caption
lstr_bi.ulFlags = bif_ReturnOnlyFSDirs
lstr_bi.pszDisplayName = Space( 255 )
lstr_bi.lpfn = ll_Null

ll_pidl = SHBrowseForFolderA( lstr_bi )

ls_Path = Space( 255 )
ll_R = SHGetPathFromIDListA( ll_pidl, ls_Path )

CoTaskMemFree( ll_pidl )

RETURN ls_Path

[dawugui]

你可以加我,我传给你.

[xxf123]

pb从8.0开始就可以不用api函数选择目录了，自己到帮助里面找找吧

[zhz0521]

pb8以后用GetFolder ( title, directory )