Abrir archivos desde PowerBuilder usando la API de Windows

Muestro el código usado para abrir cualquier archivo usando la API de Windows.

Para empezar declaramos la función API ShellExecuteA() que se utilizara, esta funcion se declarara en la sección Global External Functions

FUNCTION long ShellExecuteA( ulong hWnd, string Operation, string lpFile, string  lpParameters, string lpDirectory, int nShowCmd ) LIBRARY "shell32.dll"

El código para invocar al API es:

Long hwnd //w_principal viene a ser la ventana padre donde se ejecuta la función. hwnd = handle(w_principal) ShellExecuteA(hwnd,"open","c:\archivo_abrir.doc","","c:\",1)

A modo ejemplo se abre el archivo "c:\archivo_abrir.doc"