**************************************************** FUNCTION ShellExec ****************** *** Author: Rick Strahl *** (c) West Wind Technologies, 1996 *** Contact: rstrahl@west-wind.com *** Modified: 03/14/96 *** Function: Starts associated Web Browser *** and goes to the specified URL. *** If Browser is already open it *** reloads the page. *** Assume: Works only on Win95 and NT 4.0 *** Pass: tcUrl - The URL of the site or *** HTML page to bring up *** in the Browser *** Return: 2 - Bad Association (invalid URL) *** 31 - No application association *** 29 - Failure to load application *** 30 - Application is busy *** *** Values over 32 indicate success *** and return an instance handle for *** the application started (the browser) **************************************************** LPARAMETERS tcUrl, tcAction, tcDirectory, tcParms IF EMPTY(tcUrl) RETURN -1 ENDIF IF EMPTY(tcAction) tcAction = "OPEN" ENDIF IF EMPTY(tcDirectory) tcDirectory = SYS(2023) ENDIF DECLARE INTEGER ShellExecute ; IN SHELL32.dll ; INTEGER nWinHandle,; STRING cOperation,; STRING cFileName,; STRING cParameters,; STRING cDirectory,; INTEGER nShowWindow IF EMPTY(tcParms) tcParms = "" ENDIF DECLARE INTEGER FindWindow ; IN WIN32API ; STRING cNull,STRING cWinName RETURN ShellExecute(FindWindow(0,_SCREEN.caption),; tcAction,tcUrl,; tcParms,tcDirectory,1)and you do :
ShellExec(lcFileName)which will open any file with the viewer configured in Windows.