Power Builder - Abrir un archivo con una determinada aplicacion

hola comunidad, quisiera saber como puedo hacer para abrir un archivo, por ejemplo si es *.xls, que lo abra con excel , osea ke abra un *.txt y lo abra con el notepad, y asi en caso es un *.pdf, que lo abra con el acrobat reader, asi sucesivamente, miren mi aplicacion consta de 2 botones en donde el primero selecciono el archivo, con la funcion getfileopenname(***) y despues me guarda la ruta del archivo bueno como haria en este caso , gracias de antemano

Hola.
Mira esta manera
deberias adparlo a tus necesidades por ejemplo
con un Choose Case

Saludos

//Local External Functions

//FUNCTION long ShellExecuteA(long hwnd, string lpOperation, string lpFile, &
//string lpParameters, string lpDirectory, long nShowCmd) LIBRARY "SHELL32.DLL"

//Scrip
long hwnd
string filname
string Archivo

Archivo="C:\Listas\Leame.Doc"

hwnd=handle(parent)

filname='winword.exe'
shellexecuteA(hwnd,'open',filname,Archivo,'',1)

Bueno la idea esta buena pero imagina cuantos choos case tengo ke hacer para muchas aplicaciones mira esta noche la he pasado pensando y buscando por www.sangoogle.com y pues he llegado a esto

--------------------------------------------------------------------------------------------------------------
BOTON DE ABRIR ARCHIVO
--------------------------------------------------------------------------------------------------------------

//FileDelete("C:\Programas\Clase 01\open.bat")
FileDelete("C:\open.bat")
FileDelete("C:\del.bat")

string ls_ruta,ls_nombre
integer li_rtn
li_rtn = GetFileOpenName("Seleccionar un Archivo",ls_ruta,ls_nombre, "DOC", "All Files (*.*), *.*","C:\Program Files\Sybase", 18)
sle_1.text=ls_ruta
sle_2.text=ls_nombre

--------------------------------------------------------------------------------------------------------------
BOTON DE ABRIRLO CON EL DETERMINADO PROGRAMA
--------------------------------------------------------------------------------------------------------------
//grabamos el archivo como bat para despues ejecutarlo

integer ls_archivo,lon,lon1,total,ls_destructor
string a,b
lon=len(sle_1.text)
lon1=len(sle_2.text)
total=lon - lon1

a=sle_1.text
a = Left(a,total)

ls_archivo = FileOpen("C:\open.bat", LineMode!, Write!, LockWrite!, Append!)
ls_destructor = FileOpen("C:\del.bat", LineMode!, Write!, LockWrite!, Append!)

FileWrite(ls_archivo, 'cd\' )
FileWrite(ls_archivo, 'cd /d '+ a)
FileWrite(ls_archivo, '"'+sle_2.text+'"')
FileClose(ls_archivo)
run('C:\open.bat',minimized!)

FileWrite(ls_destructor, 'cd\')
FileWrite(ls_destructor, 'taskkill /F /IM cmd.exe')
FileClose(ls_destructor)

run('C:\del.bat',minimized!)

Gracias amigo, pero voy a investigar sobre la forma de respuesta que m estas dando para llegar a hacer el mismo programa pero con diferentes funciones

atte Joanmigo_juegos

Hola

Con la API ShelExecute

Utiliza este Codigo , no especificando el archivo te lo ejecuta
con el programa asociado.

Espero te ayude

long hwnd
string filename
hwnd=handle(parent)

//filename='C:\tema.XLS'
//filename='C:\tema.doc'
filename='C:\tema.bat'

shellexecuteA(hwnd,'open',filename,'','',1)

Eres grande man con esas 4 lineas solucione el problema d mi vida jaja

Gracias