Sección de códigos , trucos y ejemplos para visual basic

64 - Llamar al cuadro de diálogo Propiedades de un Archivo mediante el Api ShellExecuteEx

En este ejemplo se usa la función Api mensionada en el titulo para llamar al cuadro de diálogo propiedades del archivo que le especifiquemos, en este caso el Autoexec.Bat

Vista del cuadro de diálogo de propiedades de archivo de windows

cuadro de diálogo propiedades de archivo usando el api ShellExecuteEx

Para probar el ejemplo colocar un control Command1 y especificarle la ruta de archivo que queremos usar en el procedimiento llamado MostrarDialogoPrpop, y en el segundo parámetro especificar el Hwnd de la ventana que hace la llamada, es decir nuestro formulario

Nota: este ejemplo puede ser útil por cuando se quiere hacer un explorador de carpetas y archivos, para colocar la opción " Propiedades " como utiliza Windows.

Código fuente en el formulario

Option Explicit 'Constantes para el Api Private Const SEE_MASK_INVOKEIDLIST = &HC Private Const SEE_MASK_NOCLOSEPROCESS = &H40 Private Const SEE_MASK_FLAG_NO_UI = &H400 'función Api ShellExecuteEX Private Declare Function ShellExecuteEX _ Lib "shell32.dll" _ Alias "ShellExecuteEx" ( _ SEI As SHELLEXECUTEINFO) As Long 'Estructura para usar con ShellExecuteEX 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 'Campos opcionales lpIDList As Long lpClass As String hkeyClass As Long dwHotKey As Long hIcon As Long hProcess As Long End Type 'Recibe la ruta del archivo y el HWND del formulario _ ------------------------------------------------------------ Public Function Propiedades_Archivo( _ Path_Archivo As String, _ Hwnd_Form As Long) As Long Dim SEI As SHELLEXECUTEINFO Dim ret As Long 'llenamos la estructura With SEI 'El tamaño .cbSize = Len(SEI) .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST _ Or SEE_MASK_FLAG_NO_UI 'El hwnd de la ventana que hace la llamada .hwnd = Hwnd_Form .lpVerb = "properties" 'El nombre del archivo .lpFile = Path_Archivo .lpParameters = vbNullChar .lpDirectory = vbNullChar .nShow = 0 .hInstApp = 0 .lpIDList = 0 End With 'llamamos al Api ret = ShellExecuteEX(SEI) ' Retornamos el handle de la instancia Propiedades_Archivo = SEI.hInstApp End Function 'llamar al procedimiento Propiedades_Archivo Private Sub form_load() Call Propiedades_Archivo("c:\autoexec.bat", Me.hwnd) End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb