>**************************************************** >FUNCTION GoUrl >****************** >*** 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(0,; > tcAction,tcUrl,; > tcParms,tcDirectory,1) >>
>GoUrl("http://www.west-wind.com/") > >*** Opens files in appropriate application >GoUrl("c:\temp\worddoc.doc") >GoUrl("c:\temp\worddoc.pdf") >>