PB:关于如何在pb中选择目录的方法

悠闲饭团

于 2024-07-24 13:47:27 发布

阅读量212

点赞数

分类专栏： PowerBuilder 文章标签：开发语言 powerbuilder pb

本文链接：https://blog.youkuaiyun.com/z9894/article/details/140661042

版权

PowerBuilder 专栏收录该内容

131 篇文章 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

关于如何在pb中选择目录的方法

声明API函数：
Function unsignedlong SHGetPathFromIDListA( unsignedlong pidl, ref string pszPath) Library 'shell32'
Function unsignedlong SHBrowseForFolderA( browseinfo lpbrowseinfo ) Library 'shell32'
Subroutine CoTaskMemFree(ulong idlist) Library 'ole32'

建立函数：
string browseforfolder(window awi_parent,string(as_caption)
函数内容：
browseinfo lstr_bi
itemidlist lstr_idl
unsignedlong ll_pidl
unsignedlong ll_r
Integer li_pos
String ls_Path
unsignedlong ll_Null

SetNull( ll_Null )

unsignedLong BIF_RETURNONLYFSDIRS = 1
lstr_bi.hOwner = Handle( awi_Parent )
lstr_bi.pidlRoot = 0
lstr_bi.lpszTitle = as_caption
lstr_bi.ulFlags = bif_ReturnOnlyFSDirs
lstr_bi.pszDisplayName

了解本专栏