FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour asociar extensi贸n con un programa
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM
asociar extensi贸n con un programa
Posted: Thu Apr 04, 2013 04:29 AM

Hola, dos preguntas sobre el mismo tema

驴Es posible desde un programa de fivewin asociar y desasociar una o mas extensiones de archivos con el programa?

驴Es posible detectar desde el programa si el programa est谩 asociado con una o varias extensiones?

Saludos

Quique
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: asociar extensi贸n con un programa
Posted: Fri Apr 05, 2013 03:33 PM
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM
Re: asociar extensi贸n con un programa
Posted: Sat Apr 06, 2013 01:27 AM

Gracias Antonio, por el momento hubo un imprevisto cambio de prioridades, pero yo creo que durante la semana que entra lo estar茅 probano

Saludos

Quique
Posts: 625
Joined: Wed Mar 14, 2007 06:49 PM
Re: asociar extensi贸n con un programa
Posted: Sat Apr 06, 2013 02:18 AM
Quique buenas tardes:

Aqui tengo te talvez te pueda servir, checa el tema y te dejo el enlace con el proyecto generado para que lo puedas adecuar a us necesidades..

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=8814

http://www.mediafire.com/?sz362c1tl28r5cx

Saludos
Soluciones y Dise帽o de Software
Damos Soluciones...

I.S.C. Victor Daniel Cuatecatl Leon
Director y Dise帽ador de Proyectos

http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM
Re: asociar extensi贸n con un programa
Posted: Sat Apr 06, 2013 06:16 AM

Gracias cuatecatl82, como le coment茅 a Antonio, en el transcurso de la semana que entra retomo el tema (si termino con lo que tengo r谩pido, tal vez este mismo fin de semana), pero parece que es lo que necesito.

Saludos

Quique
Posts: 408
Joined: Sun Aug 13, 2006 05:38 AM
Re: asociar extensi贸n con un programa
Posted: Sat Apr 06, 2013 04:29 PM
Siguiendo los consejos de ambos y considerando que todav铆a el programa no tiene 铆cono ni opci贸n de configuraci贸n, lo hice de manera r谩pida y sencilla (creo), ya despues lo complementar茅, por lo pronto solo con esto funciona bien

Code (fw): Select all Collapse
   #define WIN_REG_SZ                         1   /* Unicode nul terminated string */
   if win_regRead( "HKCR\.prg\" ) == nil .or. ;
         win_regRead( "HKCR\" + win_regRead( "HKCR\.prg\" ) + "\shell\open\command\" ) == nil .or. ;
         win_regRead( "HKCR\" + win_regRead( "HKCR\.prg\" ) + "\shell\open\command\" ) <> hb_argV( 0 ) + ' "%1"'
      if msgNoYes( ::cTitulo + " no es su editor por defecto" + CRLF + "驴Desea hacerlo su editor?" )
         if win_regRead( "HKCR\.prg\" ) == nil
            win_regWrite( "HKCR\.prg\", "Fuentes xBase", WIN_REG_SZ )
         endIf
         win_regWrite( "HKCR\" + win_regRead( "HKCR\.prg\" ) + "\shell\open\command\", hb_argV( 0 ) + ' "%1"', WIN_REG_SZ )
      endIf
   endIf


Gracias a ambos
Saludos

Quique

Continue the discussion