就因为受不了操作系统支持库!
标题 = 选择 (是否为空 (标题), “请选择一个文件夹”, 标题)
地址栏 = 选择 (是否为空 (地址栏), 真, 地址栏)
新样式 = 选择 (是否为空 (新样式), 真, 新样式)
显示文件 = 选择 (是否为空 (显示文件), 假, 显示文件)
BROWSEINFO.lpszTitle = 标题
BROWSEINFO.lpfn = &回调函数
BROWSEINFO.ulFlags = 位或 (选择 (地址栏, 16, 0), 选择 (新样式, 64, 0), 选择 (显示文件, 16384, 0))
文本 = 取空白文本 (512)
目录 = 初始目录
SHGetPathFromIDList (SHBrowseForFolder (BROWSEINFO), 文本)
文本 = 删首尾空 (文本)