Windows未公开函数揭密(3)[3]

dim lpidlist as long
dim udtbi as browseinfo
'初试化udtbi结构
with udtbi
.hwndowner = form1.hwnd
.ulflags = bif_returnonlyfsdirs
end with
'弹出文件夹查看窗口
lpidlist = shbrowseforfolder(udtbi)
if lpidlist then
'查找文件
shfindfiles lpidlist, 0
call cotaskmemfree(lpidlist)
end if
end sub
private sub command5_click()
shobjectproperties form1.hwnd, 2, ″c:\windows\notepad.exe″, ″samples″
end sub
private sub form_load()
command1.caption = ″运行程序″
command2.caption = ″更改图标″
command3.caption = ″打开文件″
command4.caption = ″查找文件″
command5.caption = ″显示文件属性″
end sub
运行程序，分别点击不同的按钮，就可以看到不同的按钮实现了对不同的系统对话框的调用。以上程序在windows98、vb6下运行通过。（完）