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
#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