Programación General > Visual Basic 6.0 e inferiores

 Extension De Tu Exe

(1/1)

hitman47:
si alguien me pudise decir como hago para que si un archivo tiene una extension
creada con mi aplicacion al hacer doble click sobre este se carge en mi programa.
y como hago para ponerle el icono de mi programa a los archivos creados por este
o con su extension. por ejemplo como word que los archivos *.doc tienen el icono de word y se abren en word al hacer doble click.
                                   
                                 Salu2 y Gracias! :comp:

Brroz:
Hola hitman47.

Prueba con algo así:


--- Código: Text --- Private Sub AsociarApp(Byval Programa as string, Byval Extension as string)     Dim lngRc As Long, lngLphKey As Long    Const HKEY_CLASSES_ROOT = &H80000000    Const REG_SZ = 1    Const MAX_PATH = 260     Programa = Programa & " %1"     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, Extension, lngLphKey)    lngRc = RegSetValue(lngLphKey, "", REG_SZ, "MiExtension_auto_file", 0)     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)    lngRc = RegSetValue(lngLphKey, "", REG_SZ, "Descripción de mi programa", 0)     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)    lngRc = RegSetValue&(lngLphKey, "DefaultIcon", REG_SZ, "C:\VíaDeAcceso\MiIcono.Ico", MAX_PATH)     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)    lngRc = RegSetValue&(lngLphKey, "shell\open\command", REG_SZ, Programa, MAX_PATH) End Sub  
Suerte.
Abur.

hitman47:
Gracias Por el codigo Brroz.  :beer:

Navegación

[0] Índice de Mensajes