Clarion - Ejecutar el contenido de un campo

   
Vista:

Ejecutar el contenido de un campo

Publicado por German (19 intervenciones) el 05/08/2008 04:13:07
Hola amigos,
se trata de lo siguiente, tengo un form donde ingreso y muestro informacion, en uno de los campos guardo informacion sobre el nombre y extension de un archivo (pudiendo ser estos, archivos de excel, word, pdf, jpg etc.) la idea es que al dar doble click sobre este campo o nombre del archivo, se ejecute, algo asi como cuando estamos en el explorador de windows, y podemos ejecutarlo con solo darle doble click

agradesco cualquier ayuda
Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clarion
- Código fuente de Clarion
- Cursos de Clarion
información
Códigos de Clarion
- Llamar al form para insertar desde el menu

RE:Ejecutar el contenido de un campo

Publicado por Raxe (181 intervenciones) el 06/08/2008 14:55:28
Hola, Prueba esto ...

Global
-Embeds
--Inside the Global Map - 4000
Module('Win32.lib')
ShellExecute(Long,*CString,*CString,*CString,*CString,Short),UShort,PASCAL,RAW,NAME('ShellExecuteA')
END

Procedure
-Embeds
--Other Declarations - 4000
LOC:Handle LONG
LOC:Op CSTRING (255)
LOC:File CSTRING (255)
LOC:Path CSTRING (255)
LOC:Param CSTRING (255)
LOC:Show LONG
LOC:RetHandle LONG

--Procedure Rutines
OpenFile routine
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = clip(l:archivo)
LOC:Path = PATH()
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)
If LOC:Rethandle <> 0 Then
Message('Error','Error',Icon:Exclamation)
End

Suerte ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar