怎么弹出文件的属性卡

2013-09-07

如何弹出文件的属性卡我最近在使用clistctrl控件找到相关文件后输入到上面然后鼠标右键点击出现菜单

如何弹出文件的属性卡
我最近在使用clistctrl控件找到相关文件后输入到上面然后鼠标右键点击出现菜单菜单选项中有文件属性选项，但是怎么弹出文件的属性卡跟windows一样的。大神召唤之术！！！大神降临吧

[解决办法]
自己组吧，我记得没有可以直接用的
[解决办法]
仅供参考，尽管是VB6

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" (lpSEI As SHELLEXECUTEINFO) As Long
Private Const SEE_MASK_INVOKEIDLIST=&HC
Private Sub Form_Click()
    Call ShowFileProperties("c:\windows\system32\msvbvm60.dll")
End Sub
Private Sub ShowFileProperties(ByValaFile 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

热点排行

C++

怎么弹出文件的属性卡