Ejemplos usando el Api de windows para Visual basic

112 - Asociar extensión a un programa

Volver al Listado Api - Anterior - Siguiente

Dos ejemplos que utiliza las funciones Api, para grabar en el registro y poder asociar una extención determinada de archivo con una aplicación y otro que la asocia con nuestra propia aplicación.

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Para el ejemplo, se utiliza las Apis RegCreateKey y RegSetValue. La primera crea una nueva rama o clave, la segunda establece los valores en la clave anteriormente creada

Hay una función, llamada Asociar_Extension_Programa, que se le deben enviar los siguientes parámetros:

La ruta del programa, es decir del Exe.
La descripción del mismo.
La extensión a registrar
El archivo de ícono ( opcional )

El siguiente ejemplo crea una nueva extensión .ABC, que se asocia al programa Bloc de notas.

Colocar un Command1 y el siguiente código fuente en un formulario.

Option Explicit Private Sub Command1_Click() 'Variables para los datos que asociará una extención con un programa Dim Descripcion As String Dim Ruta_Programa As String Dim Ruta_Icono As String Dim Extension As String 'Descripción del Programa Descripcion = " descripción de mi programa " 'Path de la aplicación Ruta_Programa = "C:\Windows\Notepad.exe" ' La extensión a asociar Extension = ".ABC" 'Ruta del Archivo de ícono ( opcional ) Ruta_Icono = "F:\iconos\icon xp\6.ico" 'Llama a la función Asociar_Extension_Programa Call Asociar_Extension_Programa(Descripcion, _ Ruta_Programa, _ Extension, _ Ruta_Icono) End Sub

Colocar el siguiente código fuente en un Módulo bas:

Option Explicit 'Declaraciones del Api y constantes '##################################### Private Declare Function RegCreateKey& Lib "advapi32.DLL" Alias "RegCreateKeyA" _ (ByVal hKey&, ByVal lpszSubKey$, hKey&) Private Declare Function RegSetValue& Lib "advapi32.DLL" Alias "RegSetValueA" _ (ByVal hKey&, ByVal lpszSubKey$, ByVal fdwType&, ByVal _ lpszValue$, ByVal dwLength&) Private Const HKEY_CLASSES_ROOT = &H80000000 Private Const MAX_PATH = 256& Private Const REG_SZ = 1 'Subrutina que asocia la extensión del programa '############################################### Public Sub Asociar_Extension_Programa(Descripcion As String, _ Programa As String, _ Extension As String, _ Optional Icono As String) Dim Clave As String Dim Valor_Clave As String Dim rc As Long Dim Handle_Clave As Long Dim ret As Long If Descripcion = "" Then MsgBox " No se especificó la descripción del programa", vbCritical Exit Sub End If If Programa = "" Then MsgBox " No se ha especificado la ruta del programa", vbCritical Exit Sub End If If Extension = "" Then MsgBox " No se ha especificado la extension del programa", vbCritical Exit Sub End If Clave = "clase" Valor_Clave = Descripcion ret = RegCreateKey&(HKEY_CLASSES_ROOT, Clave, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "", REG_SZ, Valor_Clave, 0&) ' Graba la extension Valor_Clave = "clase" ret = RegCreateKey&(HKEY_CLASSES_ROOT, Extension, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "", REG_SZ, Valor_Clave, 0&) 'Graba la ruta del ejecutable y el comando Shell\open\command Valor_Clave = Programa & " %1" ret = RegCreateKey&(&H80000000, Clave, Handle_Clave&) ret = RegSetValue&(Handle_Clave&, "shell\open\command", 1, Valor_Clave, 256&) ' Graba la ruta del ícono que se asociará al ejecutable ret = RegSetValue&(Handle_Clave&, "DefaultIcon", 1, Icono, Len(Icono)) End Sub

Ejemplo 2

Este otro ejemplo asocia nuestra aplicación con la extensión .dat. Una ves asociada dicha extensión, al abrir un archivo de extensión .dat, se carga el contenido del archivo en un control RichTextBox

vista del formulario de ejemplo paar asociar la extensión al ejecutable

Para asociar la extensión se llama a la Sub Asociar_Extension pasándole la extensión como parámetro

Para desasociar la extensión creada, se llama a la Sub Eliminar_Extension

Colocar un control RichTextBox, y dos Commandbutton.

Nota Importante: Compilar el ejecutable para probar el ejemplo.

Código en el formulario principal del programa

Option Explicit ' Api que crea una clave Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _ "RegCreateKeyA" (ByVal hKey As Long, _ ByVal lpSubKey As String, _ phkResult As Long) As Long ' Api que establece y crea un valor Private Declare Function RegSetValue Lib "advapi32.dll" Alias _ "RegSetValueA" (ByVal hKey As Long, _ ByVal lpSubKey As String, _ ByVal dwType As Long, _ ByVal lpData As String, _ ByVal cbData As Long) As Long ' Api para eliminar un valor ( Elimina la extensión asociada ) Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" ( _ ByVal hKey As Long, _ ByVal lpSubKey As String) ' Rama del registro donde crear las claves y valores _ para asociar la extensión de archivo Private Const HKEY_CLASSES_ROOT = &H80000000 ' Buffer Private Const MAX_PATH = 260& 'Constante que indica que es un valor de tipo cadena Private Const REG_SZ = 1 ' Asocia la extensión .dat '********************************************* Private Sub Command1_Click() Call Asociar_Extension(".dat") End Sub ' Elimina la extensión .dat asociada a nuestro programa '********************************************* Private Sub Command2_Click() Call Eliminar_Extension(".dat") End Sub Private Sub Asociar_Extension(Extension As String) ' Línea de comando Dim Comando As String Dim ret As Long ' Valor de retorno del Api Dim lphKey& ' Valor del Handle de retorno del Api 'Crea la clave y el valor ret = RegCreateKey&(HKEY_CLASSES_ROOT, App.Title, lphKey&) ret = RegSetValue&(lphKey&, "", REG_SZ, App.EXEName, 0&) 'Crea otra para la extensión asociada a la aplicación ret = RegCreateKey&(HKEY_CLASSES_ROOT, Extension, lphKey&) ret = RegSetValue&(lphKey&, "", REG_SZ, App.Title, 0&) Comando = App.Path & "\" & App.EXEName & ".exe" & " %1" ' Establece la ruta del Exe para la línea de comando ret = RegCreateKey&(HKEY_CLASSES_ROOT, App.Title, lphKey&) ret = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, _ Comando, MAX_PATH) End Sub Public Function Eliminar_Extension(Extension As String) Dim ret As Long ret = RegDeleteKey(HKEY_CLASSES_ROOT, App.Title) ret = RegDeleteKey(HKEY_CLASSES_ROOT, Extension) End Function Private Sub Form_Load() 'MsgBox Command$ 'si Command no está vacío .... If Len(Command$) Then 'Lee la línea de comandos y carga el archivo dat en el RichTextBox RichTextBox1.LoadFile Command End If Command1.Caption = " Asociar Extensión " Command2.Caption = " Eliminar Extensión asociada " End Sub Private Sub Form_Resize() Command1.Width = 2300 Command2.Width = 2300 RichTextBox1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - (Command1.Height + 200) Command2.Move Me.ScaleWidth - (Command2.Width + 50), _ RichTextBox1.Top + RichTextBox1.Height + 50 Command1.Move Command2.Left - (Command1.Width + 50), Command2.Top End Sub

Relacionados

Buscar en Recursos vb