'Description: Invokes the File Explorer "Properties" dialog without OCX
'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 'Optional parameter
' lpClass As String 'Optional parameter
' hkeyClass As Long 'Optional parameter
' dwHotKey As Long 'Optional parameter
' hIcon As Long 'Optional parameter
' hProcess As Long 'Optional parameter
'End Type
'Const SEE_MASK_INVOKEIDLIST = &HC
'Const SEE_MASK_NOCLOSEPROCESS = &H40
'Const SEE_MASK_FLAG_NO_UI = &H400
'Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" _
(SEI As SHELLEXECUTEINFO) As Long
'Public Function ShowProperties(filename As String, OwnerhWnd As Long) As Long
' 'open a file properties property page for specified file if return value
' '<=32 an error occurred
' 'From: Delphi code provided by "Ian Land" (iml@dircon.co.uk)
Dim SEI As SHELLEXECUTEINFO
Dim r As Long
' 'Fill in the SHELLEXECUTEINFO structure
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
' 'call the API
r = ShellExecuteEX(SEI)
' 'return the instance handle as a sign of success
ShowProperties = SEI.hInstApp
'End Function
'Paste the following into a command button, etc.
'Needs one textbox named Text1
Dim r As Long
Dim fname As String
' 'get the filename and path from Text1
fname = (Text1)
' 'show the properties dialog, passing the filename
' 'and the owner of the dialog
r = ShowProperties(fname, Me.hwnd)
' 'Display an error message if things didn't go as planned
If r <= 32 Then MsgBox "Error"
|