Show the Standard File Properties Dialog

Show the Standard File Properties Dialog

If your program has an Explorer shell-style interface, you probably want to supply the standard File | Properties dialog. Do this by using the ShellExecuteEx API function:

 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 LongEnd TypePrivate Declare Function ShellExecuteEx Lib _	"shell32" (lpSEIAs SHELLEXECUTEINFO) As LongPrivate Const SEE_MASK_INVOKEIDLIST = &HCPrivate Sub Form_Click()	Call ShowFileProperties( _		"c:windowssystemmsvbvm50.dll")End SubPrivate 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 seiEnd Sub


Share the Post: