* Show SM4 MANUAL
*++++*
*++++*SAK - 04/13/2001 Abelson WEB
*clUrl = SYS(2003) + "\SM4 Manual.PDF"
clUrl = "
*----*
*----*End
*Opening the Browser Example (VFP6)
*Function GoURL(tcUrl, tcAction)
*tcUrl = iif(type("tcUrl"

="C",tcUrl,"
*tcAction = iif(type("tcAction"

="C",tcAction,"Open"

if !empty(clUrl)
cAction = "Open"
wait window "Loading Browser..." nowait
clUrl = clUrl
declare integer ShellExecute;
in SHELL32.dll ;
integer nWinHandle, ;
string cOperation, ;
string cFileName, ;
string cParameters, ;
string cDirectory, ;
integer nShowWindow
declare integer FindWindow ;
in WIN32API ;
string cNull, string cWinName
return ShellExecute(FindWindow(0,_screen.caption),;
cAction, clUrl, "", sys(2023), 1)
Endif && empty(clUrl)