uj5u.com熱心網友回復：
GetFileOpenNameuj5u.com熱心網友回復：
api如何呼叫？uj5u.com熱心網友回復：
選擇路徑GetFileSaveName,要輸入名字
GetFolder，不需要輸入名字
此乃pb內部函式
uj5u.com熱心網友回復：
//檔案夾瀏覽通用對話框API函式FUNCTION Long SHBrowseForFolder (REF str_BROWSEINFO lpBrowseInfo) LIBRARY "shell32.dll" ALIAS FOR "SHBrowseForFolderA;Ansi"
SUBROUTINE CoTaskMemFree (Long hMem ) LIBRARY "ole32.dll"
FUNCTION Long SHGetPathFromIDList(long pidList, REF string lpBuffer) LIBRARY "shell32.dll" ALIAS FOR "SHGetPathFromIDListA;Ansi"
String ls_ReturnPathName
Long ll_rc
str_BROWSEINFO lstr_Info
Long ll_pIDlRoot
Long ll_BrowseInfoFlags
ls_ReturnPathName = Space( 256 )
ll_browseinfoflags = BIF_RETURNONLYFSDIRS + BIF_USENEWUI
//初始化結構browseinfo
lstr_info.hWndOwner = Handle( This )
lstr_info.DisplayName = ls_ReturnPathName
lstr_info.Title = "請選擇檔案夾目錄："
lstr_info.pidlroot = ll_pIDlRoot
lstr_info.flags = ll_BrowseInfoFlags
//顯示檔案夾瀏覽對話框
ll_rc = SHBrowseForFolder( lstr_Info )
IF ll_rc > 0 THEN
SHGetPathFromIDList( ll_rc, ls_ReturnPathName)
//釋放記憶體
CoTaskMemFree(ll_rc)
Return RightTrim(ls_ReturnPathName)
Else
Return ""
End If
global type str_browseinfo from structure
long hwndowner
long pidlroot
string displayname
string title
long flags
long pfn
long param
string image
end type
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/52561.html
標籤：基礎類
上一篇：VM安裝版rar