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

74 - Poner nuestro programa en el menu contextual de windows cuando le damos clic derecho sobre un archivo

Este ejemplo muestra como poder asociar una extensión de archivo con nuestro programa, para que al hacer clic sobre el mismo, o seleccionarlo desde el menú contextual de windows al hacer clic derecho , se pueda abrir con nuestro ejecutable.

Para este ejemplo, se asocia , las extensiones .htm y .html. En el formulario, colocamos un control WebBrowser para poder cargar el documento

Pasos para el ejemplo

Colocar un control WebBrowser llamado WebBrowser 1 y un command1 en el formulario
Guardar el proyecto en una carpeta cualquiera
Ahora, compilar el ejecutable, es decir genera el archivo exe en el App.path

Luego , cuando presionemos el Command1, se incluirá nuestro programa en el menú contextual de windows, es decir agregará las entradas necesarias al registro, para que al darle clic derecho sobre un archivo .HTML o htm, el mismo se abra con nuestra aplicación, y la página se cargará en el control WebBrowser, leyendo la línea de comando con las función Command de visual basic

menu contextual de windows

importante: una ves que presionemos el boton para añadir la opcion de nuestro programa, no hay que cambiar el archivo exe de lugar ( es decir de directorio ), si no no funcionarà ya que cuando se intente abrir el archivo obviamente no va a encontrar el programa, mostrando el diálogo de windows " Abrir con ..."

Nota Al final de esta página hay otro ejemplo similar

Código fuente

'*************************************************************************** '* Controles : Agregar un control WebBrowser y un Command1 '*************************************************************************** Private Sub Command1_Click() 'variable de tipo object para leer y crear claves _ en el registro medianet windows scripting Host Dim obj As Object 'Para la ruta de nuestra aplicacion Dim ruta As String 'seteamos la variable y creamos el objeto Set obj = CreateObject("WScript.Shell") 'Leemos el valor predeterminado de la clave .html Resultado = obj.RegRead("HKEY_CLASSES_ROOT\.html\") 'Resultado ahora contiene el valor htmlFile 'Sabiendo ese valor nos posicionamos en dicha clave y creamos 'una nueva shell, dentro de Shell otra llamada por ejemplo miPrograma 'y agregamos como valor predeterminado el texto que va a aparecer cuando 'le demos click derecho sobre un archivo con extencion .html o .htm obj.RegWrite "HKEY_CLASSES_ROOT\" & Resultado & "\Shell\MiNavegador\", _ "Abrir con MiNavegador" 'Ruta de nuestro exe ruta = App.Path & "\" & App.EXEName & ".exe" 'Ahora dentro de la clave que creamos que quedó de esta manera: '"HKEY_CLASSES_ROOT\htmlfile\shell\MiNavegador\command" y agregamos la ruta mas el %1 obj.RegWrite "HKEY_CLASSES_ROOT\" & Resultado & "\Shell\MiNavegador\command\", _ """" & ruta & """" & " " & "%1" 'Eliminamos la variable de objeto Set obj = Nothing 'Nota: si queremos que nuestra aplicacion sea la predeterminada _ hay que establecer la ruta de nuestro exe en esta clave: _ --->> HKEY_CLASSES_ROOT\htmlfile\shell\open\command MsgBox "Ahora hacer click derecho sobre un archivo htm para abrirlo", vbInformation End Sub Private Sub Form_Load() 'Cuando se inicia el form cargará la página pasada desde la linea de comandos WebBrowser1.Navigate Command$ Command1.Caption = " Asociar Extensión Htm " End Sub

Recursos visual basic 6 - Enlaces relacionados

Módulo bas para asociar una extención de archivo propia para nuestro programa

Buscar en Recursos vb