Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
FUNCTION BROWSER
PARAMETER m.FILENAME
LOCAL LNRETVAL, LCOPERATION
LCOPERATION = "Open"
IF MYFILE(m.FILENAME)
DECLARE INTEGER ShellExecute IN SHELL32.DLL ;
INTEGER handle,;
STRING @sFile,;
STRING @lp,;
STRING @DIR,;
STRING @dir1,;
INTEGER ncmd
LNRETVAL = SHELLEXECUTE(0, LCOPERATION, m.FILENAME, "", "", 1)
ELSE
MESSAGEBOX("Unable to locate the web page:"+m.FILENAME,48,"Problem")
ENDIF
RETURN(.F.)
FUNCTION MYFILE
PARAMETER m.FILENAME
PRIVATE m.FILENAME,m.FLG
M.FLG = .F.
IF !EMPTY(m.FILENAME)
IF ADIR(TMPDIRFILES,m.FILENAME) > 0
M.FLG = .T.
ENDIF
ENDIF
RETURN(m.FLG)
Browser("c:\myfolder\mydocument.doc")
Browser("c:\myfolder\mypdffile.pdf")
loDoc = GETOBJECT( 'd:\MyFolder\MyDocument.doc' )
loDoc.Application.Visible = .T.
Declare Integer FindWindow IN Win32Api String, String
Declare BringWindowToTop IN Win32APi Integer
Declare ShowWindow IN Win32Api Integer, Integer
lcTitle = loDoc.Name + [ - ] + loDoc.Application.Caption
lnHWND = FindWindow( NULL, lcTitle )
BringWindowToTop( lnHWND )
ShowWindow( lnHWND, 3 )