/*
See description below. Call this with ViewHTMLHelp(PathAsString, HelpFileName)
If PathAsString is empty it will go to a default path.

This allows standardizing on a specific browser for Help screens (and using settings such as kiosk mode).
*/

stat sHTMLBrowser as String
stat sDefaultHelpPath as String

// ======================================================================
// VIEW HTML HELP
// Opens the specified HTML document in the specified browser
// The browser is set in a static variable
// ======================================================================
Subroutine ViewHTMLHelp(vHelpPath as String, vHelpDocName as String)
     // Assumes user has FireFox installed !!!
     var CmdLine as String
     
     If vHelpPath = "" then vHelpPath = sDefaultHelpPath

// Delete next line to access URL's, etc.  Presumably anyone hardcoding help page locations will
// check their finished code and if it doesn't work will realize the path needs a final \.
     If @Right(vHelpPath, 1) <> "\" then vHelpPath = vHelpPath + "\"

     CmdLine = @chr(34) + sHTMLBrowser + @chr(34) + " " + @chr(34) + vHelpPath + vHelpDocName + @chr(34)
     CreateAProcess(CmdLine)
End Subroutine // ViewHTMLHelp



// Select the browser that will be used
     sHTMLBrowser = "C:\Program Files\Internet Explorer\iexplore.exe"
//      sHTMLBrowser = "C:\Program Files\Mozilla Firefox\firefox.exe"
     sDefaultHelpPath = "G:\Sesame\Help\"