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

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!

Brroz · « **Respuesta #1 en:** Jueves 8 de Enero de 2004, 12:40 »

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 & &#34; %1&#34;
 
    lngRc = RegCreateKey(HKEY_CLASSES_ROOT, Extension, lngLphKey)
    lngRc = RegSetValue(lngLphKey, &#34;&#34;, REG_SZ, &#34;MiExtension_auto_file&#34;, 0)
 
    lngRc = RegCreateKey(HKEY_CLASSES_ROOT, &#34;MiExtension_auto_file&#34;, lngLphKey)
    lngRc = RegSetValue(lngLphKey, &#34;&#34;, REG_SZ, &#34;Descripción de mi programa&#34;, 0)
 
    lngRc = RegCreateKey(HKEY_CLASSES_ROOT, &#34;MiExtension_auto_file&#34;, lngLphKey)
    lngRc = RegSetValue&(lngLphKey, &#34;DefaultIcon&#34;, REG_SZ, &#34;C:&#092;VíaDeAcceso&#092;MiIcono.Ico&#34;, MAX_PATH)
 
    lngRc = RegCreateKey(HKEY_CLASSES_ROOT, &#34;MiExtension_auto_file&#34;, lngLphKey)
    lngRc = RegSetValue&(lngLphKey, &#34;shell&#092;open&#092;command&#34;, REG_SZ, Programa, MAX_PATH)
 
End Sub
 
 

Suerte.
Abur.

hitman47

Gracias Por el codigo Brroz.

SoloCodigo

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

hitman47

Extension De Tu Exe

Brroz

Re: Extension De Tu Exe

hitman47

Re: Extension De Tu Exe