FoxPress – Enero 2001

¿Como saber cual es la aplicación asociada a un determinado tipo de archivo?

Por Alvaro Torres



lcfile = getfile()

if empty(lcfile) or !file(lcfile)

   return

endif



messagebox(aplicacion_asociada(lcfile))



PROCEDURE aplicacion_asociada(archivo)



declare integer FindExecutable;

    in Shell32;

    string @lpFile, string;

    @lpDirectory, string  ;

    @lpResult



lpFile = archivo

lcpath = justpath(lcfile)

lcbuffer = space(200)



lnresult = findexecutable(@lpFile, @lcpath, @lcbuffer)



return lcbuffer



endproc

FoxPress – Enero de 2001