VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 开启文件属性窗口
发表评论(0)作者:, 平台:, 阅读:11009, 日期:2000-03-12
开启文件属性窗口 98-8-22

声明:

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


Public Const SEE_MASK_INVOKEIDLIST = &HC

Public Const SEE_MASK_NOCLOSEPROCESS = &H40

Public Const SEE_MASK_FLAG_NO_UI = &H400


Declare Function ShellExecuteEX Lib "shell32.dll" Alias _

"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long


代码:

' 使用: ShowProps("c:\command.com",Me.hWnd)

Public Sub ShowProps(FileName As String, OwnerhWnd As Long)

Dim SEI As SHELLEXECUTEINFO

Dim r As Long

With SEI

.cbSize = Len(SEI)

.fMask = SEE_MASK_NOCLOSEPROCESS Or _

SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI

.hwnd = OwnerhWnd

.lpVerb = "properties"

.lpFile = FileName

.lpParameters = vbNullChar

.lpDirectory = vbNullChar

.nShow = 0

.hInstApp = 0

.lpIDList = 0

End With

r = ShellExecuteEX(SEI)

End Sub