SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: hitman47 en Miércoles 7 de Enero de 2004, 05:58

Título: Extension De Tu Exe
Publicado por: hitman47 en Miércoles 7 de Enero de 2004, 05:58
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:
Título: Re: Extension De Tu Exe
Publicado por: Brroz en Jueves 8 de Enero de 2004, 12:40
Hola hitman47.

Prueba con algo así:

Código: Text
  1.  
  2. Private Sub AsociarApp(Byval Programa as string, Byval Extension as string)
  3.  
  4.     Dim lngRc As Long, lngLphKey As Long
  5.     Const HKEY_CLASSES_ROOT = &H80000000
  6.     Const REG_SZ = 1
  7.     Const MAX_PATH = 260
  8.  
  9.     Programa = Programa & " %1"
  10.  
  11.     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, Extension, lngLphKey)
  12.     lngRc = RegSetValue(lngLphKey, "", REG_SZ, "MiExtension_auto_file", 0)
  13.  
  14.     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)
  15.     lngRc = RegSetValue(lngLphKey, "", REG_SZ, "Descripción de mi programa", 0)
  16.  
  17.     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)
  18.     lngRc = RegSetValue&(lngLphKey, "DefaultIcon", REG_SZ, "C:\VíaDeAcceso\MiIcono.Ico", MAX_PATH)
  19.  
  20.     lngRc = RegCreateKey(HKEY_CLASSES_ROOT, "MiExtension_auto_file", lngLphKey)
  21.     lngRc = RegSetValue&(lngLphKey, "shell\open\command", REG_SZ, Programa, MAX_PATH)
  22.  
  23. End Sub
  24.  
  25.  

Suerte.
Abur.
Título: Re: Extension De Tu Exe
Publicado por: hitman47 en Viernes 9 de Enero de 2004, 04:35
Gracias Por el codigo Brroz.  :beer: