Olá...
É possível abrir esses arquivos com a Classe TActiveX ?
Saludos
#INCLUDE "FIVEWIN.CH"
PROCE MAIN()
LOCAL oDlg,oAdj,cAdj:=SPACE(30)
DEFINE DIALOG oDlg TITLE "Abrir Imagen"
@ 1,1 SAY "Ubicación del Archivo :"
@ 2,1 BMPGET oAdj VAR cAdj NAME "BITMAPS\IMPORTAR.BMP";
ACTION (cFile:=cGetFile32("Todos los Archivos de Imagen (*.*) |*.*|Mapa de Bits (*.BMP) |*.bmp|;
JPGE (*.JPG,*.JPGE,*.JPE,*.JFIF)|*.JPG;*.JPGE;*.JPE;*.JFIF|GIF (*.GIF)|*.gif|PNG (*.PNG)|*.png",;
" Seleccionar Archivo para Abrir",1,cFilePath(cAdj),.f.,.t.),;
cAdj:=IIF(!EMPTY(cFile),cFile,cAdj),;
oAdj :Refresh())
@ 3,1 BUTTON "Abrir" ACTION ShellExecute( 0, "open", cAdj)
@ 3,8 BUTTON "Cerrar" ACTION oDlg:End()
ACTIVATE DIALOG oDlg CENTERED
RETURN
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 78 guests