VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 显示文件属性对话框
发表评论(0)作者:, 平台:, 阅读:12828, 日期:2000-03-12
显示文件属性对话框



利用ShellExecuteEx API函数可以调出文件的属性对话框。源代码如下:


Private Type SHELLEXECUTEINFO


cbSize As Long


fMask As Long


hWnd As Long


lpVerb As String


lpFile As String


lpParameters As String


lpDirectory As String


nShow As Long


hInstApp As Long


lpIDList As Long


lpClass As String


hkeyClass As Long


dwHotKey As Long


hIcon As Long


hProcess As Long


End Type


Private Declare Function ShellExecuteEx Lib _


"shell32" (lpSEIAs SHELLEXECUTEINFO) As Long


Private Const SEE_MASK_INVOKEIDLIST = &HC


Private Sub Form_Click()


Call ShowFileProperties( _


"c:\windows\system\msvbvm50.dll")


End Sub


Private Sub ShowFileProperties(ByVal aFile As _


String)


Dim sei As SHELLEXECUTEINFO


sei.hWnd = Me.hWnd


sei.lpVerb = "properties"


sei.lpFile = aFile


sei.fMask = SEE_MASK_INVOKEIDLIST


sei.cbSize = Len(sei)


ShellExecuteEx sei


End Sub