Power Builder - Encontrar el path del winword.exe

Hola a todos...

Mi caso es el siguiente; tengo que encontrar el path en donde se encuentra ubicado el ejecutable winword.exe, por que por medio de mi aplicacion tengo que ejecutarlo..

Espero me puedan ayudar.. es de suma urgencia..

Desde ya muchas gracias y Felicies Fiestas..

Para mostrar el path de dicho archivo, tendrías que buscarlo; pero ojo, tarda el mismo tiempo que si utilizarías el Buscar de Windows.
Ejemplo:
1. En Local External Functions, declaras:
FUNCTION long SearchTreeForFile(String RootPath ,String InputPathName , &
ref String OutputPathBuffer) LIBRARY "imagehlp.dll"

2. Luego el script es:
SetPointer ( HourGlass! )
CONSTANT long MAX_PATH = 260
string tempStr, ls_archivo
long ret
tempStr = space(MAX_PATH)

ls_archivo="winword.exe"
// 'retorna 1 si lo encuentra, 0 si falla en la busqueda
Ret = SearchTreeForFile("c:\", ls_archivo, tempStr)
if ret<>0 then
messagebox("Ruta",tempStr)
else
messagebox("Error...","El archivo no existe.")
end if
SetPointer ( Arrow! )
//-----------Fin-----------------------

Nota: Si deseas ejecutar winword.exe o un archivo específico de word, NO es necesario conocer el path de ninguno de ellos, ya que existen métodos donde simplemente se especifica el nombre de dichos archivos (no entra para nada la ruta). Si eso es lo que deseas, debes comentar.

Gracias Oscar, te comento que lo que necesito es ejecutar el winword.exe; asi que desde ya te agradeceria que me facilites esos metodos de los que me hablaste para poder ejecutarlo sin saber el path donde se encuentra...

Saludos desde Paraguay.-

Por el momento acá van dos métodos para ejecutar winword.exe, sin conocer la ruta:

* Con WSH:
//Conexión genérica
OleObject wsh
Integer li_rc
wsh = CREATE OleObject
li_rc = wsh.ConnectToNewObject( "WScript.Shell" )

//Ejecutar Word
wsh.Run("winword.exe")

//Desconectamos
wsh.DisconnectObject()
DESTROY wsh
//------Fin--------------

* Con API ShellExecute:
1. Declaras en Global Externals Functions:
FUNCTION long ShellExecuteA(long hwnd, string lpOperation, string lpFile, &
string lpParameters, string lpDirectory, long nShowCmd) LIBRARY "SHELL32.DLL"

2. Script:
long hwnd
string filname
hwnd=handle(parent)
filname='winword.exe'
shellexecuteA(hwnd,'open',filname,'','',1)
//-------Fin-----

Gracias Oscar, funciona perfectamente, ahora mi problema esta resuelto..

Felices Fiestas..