开启文件属性窗口

2019-11-18 17:28:39

字体：大中小

来源：转载

供稿：网友

声明：
TypeSHELLEXECUTEINFO
cbSizeAsLong
fMaskAsLong
hwndAsLong
lpVerbAsString
lpFileAsString
lpParametersAsString
lpDirectoryAsString
nShowAsLong
hInstAppAsLong
lpIDListAsLong
lpClassAsString
hkeyClassAsLong
dwHotKeyAsLong
hIconAsLong
hPRocessAsLong
EndType

PublicConstSEE_MASK_INVOKEIDLIST=&HC
PublicConstSEE_MASK_NOCLOSEPROCESS=&H40
PublicConstSEE_MASK_FLAG_NO_UI=&H400

DeclareFunctionShellExecuteEXLib"shell32.dll"Alias"ShellExecuteEx"(SEIAsSHELLEXECUTEINFO)AsLong

代码：
'使用：ShowProps("c:/command.com",Me.hWnd)
PublicSubShowProps(FileNameAsString,OwnerhWndAsLong)
DimSEIAsSHELLEXECUTEINFO
DimrAsLong
WithSEI
.cbSize=Len(SEI)
.fMask=SEE_MASK_NOCLOSEPROCESSOrSEE_MASK_INVOKEIDLISTOrSEE_MASK_FLAG_NO_UI
.hwnd=OwnerhWnd
.lpVerb="properties"
.lpFile=FileName
.lpParameters=vbNullChar
.lpDirectory=vbNullChar
.nShow=0
.hInstApp=0
.lpIDList=0
EndWith
r=ShellExecuteEX(SEI)
EndSub->

上一篇：移动文件到回收站

下一篇：利用INI文件给程序创建动态菜单