• Martes 12 de Noviembre de 2024, 21:32

Autor Tema:  Extension De Tu Exe  (Leído 1379 veces)

hitman47

  • Miembro activo
  • **
  • Mensajes: 81
  • Nacionalidad: pa
    • Ver Perfil
    • http://softwareistmenio.blogspot.com
Extension De Tu Exe
« en: Miércoles 7 de Enero de 2004, 05:58 »
0
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

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Extension De Tu Exe
« Respuesta #1 en: Jueves 8 de Enero de 2004, 12:40 »
0
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.

hitman47

  • Miembro activo
  • **
  • Mensajes: 81
  • Nacionalidad: pa
    • Ver Perfil
    • http://softwareistmenio.blogspot.com
Re: Extension De Tu Exe
« Respuesta #2 en: Viernes 9 de Enero de 2004, 04:35 »
0
Gracias Por el codigo Brroz.  :beer: