谁有这两个模块啊！

此人唯美

  同标题，谁有啊，发给我下

fsjoe

我这里有第一个模块　
另外第二个模块没有，但可给你个源程序，希望你有用
.版本 2
.支持库 shell

.子程序 显示文件属性对话框
.参数 文件名, 文本型
.参数 窗口句柄, 整数型
.局部变量 SEI, SHELLEXECUTEINFO
.局部变量 r, 整数型

SEI.cbSize ＝ API_GlobalSize (SEI)
SEI.fMask ＝ 位或 (#SEE_MASK_NOCLOSEPROCESS, #SEE_MASK_INVOKEIDLIST, #SEE_MASK_FLAG_NO_UI)
SEI.hwnd ＝ 窗口句柄
SEI.lpVerb ＝ “properties”
SEI.lpFile ＝ 文件名
SEI.lpParameters ＝ “”
SEI.lpDirectory ＝ “”
SEI.nShow ＝ 0
SEI.hInstApp ＝ 0
SEI.lpIDList ＝ 0
r ＝ API_ShellExecuteEx (SEI)

.子程序 _按钮1_被单击
.局部变量 r, 整数型

显示文件属性对话框 (取特定目录 (#Windows系统目录) ＋ “notepad.exe”, 取窗口句柄 ())