按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
。data
szSelect db '您选择的目录'；0
szNoSelect db '您按下了取消键'；0
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
； 代码段
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
de
include _BrowseFolder。asm
start：
invoke GetCurrentDirectory；sizeof szPath；addr szPath
invoke _BrowseFolder；NULL；addr szPath
。if eax
invoke MessageBox；NULL；offset szPath；
offset szSelect；MB_OK
。else
invoke MessageBox；NULL；offset szNoSelect；NULL；MB_OK
。endif
invoke ExitProcess；NULL
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
end start
该文件仅包含几句调用和显示结果的代码，全部的功能集中在_BrowseFolder。asm中，用include语句包含进主文件中，这样安排代码的原因是目录浏览对话框的实现比较复杂，把功能模块写成一个单独的文件可以便于在其他文件中引用，读者也可以直接把这个源文件不加修改地用在其他地方。_BrowseFolder。asm文件的内容如下：
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
； IUnknown 接口定义
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
externdef IID_IUnknown：IID
LPUNKNOWN typedef DWORD
LPPUNKNOWN typedef ptr LPUNKNOWN
IUnknown_QueryInterfaceProto typedef proto ：DWORD； ：DWORD； ：DWORD
IUnknown_AddRefProto typedef proto ：DWORD
IUnknown_ReleaseProto typedef proto ：DWORD
IUnknown_QueryInterface typedef ptr IUnknown_QueryInterfaceProto
IUnknown_AddRef typedef ptr IUnknown_AddRefProto
IUnknown_Release typedef ptr IUnknown_ReleaseProto
IUnknown struct DWORD
QueryInterface IUnknown_QueryInterface ？
AddRef IUnknown_AddRef ？
Release IUnknown_Release ？
IUnknown ends
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
；IMalloc 接口定义
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
externdef IID_IMalloc：IID
LPMALLOC typedef DWORD
LPPMALLOC typedef ptr LPMALLOC
IMalloc_AllocProto typedef proto ：DWORD； ：DWORD
IMalloc_ReallocProto typedef proto ：DWORD； ：DWORD；：DWORD
IMalloc_FreeProto typedef proto ：DWORD； ：DWORD
IMalloc_GetSizeProto typedef proto ：DWORD； ：DWORD
IMalloc_DidAllocProto typedef proto ：DWORD； ：DWORD
IMalloc_HeapMinimizeProto typedef proto ：DWORD
IMalloc_Alloc typedef ptr IMalloc_AllocProto
IMalloc_Realloc typedef ptr IMalloc_ReallocProto
IMalloc_Free typedef ptr IMalloc_FreeProto
IMalloc_GetSize typedef ptr IMalloc_GetSizeProto
IMalloc_DidAlloc typedef ptr IMalloc_DidAllocProto
IMalloc_HeapMinimize typedef ptr IMalloc_HeapMinimizeProto
IMalloc struct DWORD
QueryInterface IUnknown_QueryInterface ？
AddRef IUnknown_AddRef ？
Release IUnknown_Release ？
来源：电子工业出版社 作者：罗云彬 上一页 回书目 下一页
上一页 回书目 下一页
第8章 通用对话框
8。3 浏览目录对话框（2）
Alloc IMalloc_Alloc ？
Realloc IMalloc_Realloc ？
Free IMalloc_Free ？
GetSize IMalloc_GetSize ？
DidAlloc IMalloc_DidAlloc ？
HeapMinimize IMalloc_HeapMinimize ？
IMalloc ends
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
。data ？
_BrowseFolderTmp dd ？
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
nst
_szDirInfo db '请选择目录：'；0
de
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
； 弹出选择目录的对话框
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
_BrowseFolderCallBack proc hWnd；uMsg；lParam；lpData
local @szBuffer＇260＇：byte
mov eax；uMsg
。if eax BFFM_INITIALIZED
invoke SendMessage；hWnd；BFFM_SETSELECTION；
TRUE；_BrowseFolderTmp
。elseif eax BFFM_SELCHANGED
invoke SHGetPathFromIDList；lParam；addr @szBuffer
invoke SendMessage；hWnd；BFFM_SETSTATUSTEXT；
0；addr @szBuffer
。endif
xor eax；eax
ret
_BrowseFolderCallBack endp
；》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》》
_BrowseFolder proc _hWnd；_lpszBuffer
local @stBrowseInfo：BROWSEINFO
local @stMalloc
local @pidlParent；@dwReturn
pushad
；********************************************************************
； 初始化库
；********************************************************************
invoke CoInitialize；NULL
invoke SHGetMalloc；addr @stMalloc
。if eax E_FAIL
mov @dwReturn；FALSE
jmp @F
。endif
invoke RtlZeroMemory；addr @stBrowseInfo；sizeof @stBrowseInfo
；********************************************************************
； SHBrowseForFolder 选择一个目录，把不含路径的目录名放入
； stBrowseInfo。pszDisplayName 中，SHGetPathFromIDList 把
； stBrowseInfo。pszDisplayName 转换成含全部路径的目录名
；********************************************************************
push _hWnd
pop @stBrowseInfo。hwndOwner
push _lpszBuffer
pop _BrowseFolderTmp
mov @stBrowseInfo。lpfn；offset _BrowseFolderCallBack
mov @stBrowseInfo。lpszTitle；offset _szDirInfo
mov @stBrowseInfo。ulFlags；
BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT
invoke SHBrowseForFolder；addr @stBrowseInfo
mov @pidlParent；eax
。if eax ！= NULL
invoke SHGetPathFromIDList；eax；_lpszBuffer
mov eax；TRUE
。else
mov eax；FALSE
。endif
mov @dwRetu