>tcUrl = IIF(type("tcUrl")="C",tcUrl,"https://www.vfphelp.com/vfp9/index.htm") >tcAction = IIF(type("tcAction")="C",tcAction,"Open") >IF type("Application.StartMode") = "N" AND !inlist(Application.StartMode,2,3,5) > * UI only when not being called from a COM server > WAIT WINDOW "Loading " + tcURL + " ..." NOWAIT >ENDIF >DECLARE INTEGER ShellExecute IN SHELL32.dll ; > INTEGER nWinHandle, ; > STRING cOperation, ; > STRING cFileName, ; > STRING cParameters, ; > STRING cDirectory, ; > INTEGER nShowWindow >RETURN ShellExecute(0,tcAction,tcUrl,"",'',1)>
>>>>lParameters tcURL, tcAction >>>>tcUrl = IIF(type("tcUrl")="C",tcUrl,"https://square.link/u/HereCodeForThePersonWhowillBePaid") >>>>tcAction = IIF(type("tcAction")="C",tcAction,"Open") >>>>IF type("Application.StartMode") = "N" AND !inlist(Application.StartMode,2,3,5) >>>> * UI only when not being called from a COM server >>>> WAIT WINDOW "Loading " + tcURL + " ..." NOWAIT >>>>ENDIF >>>>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),tcAction,tcUrl,"",SYS(2023),1) >>>>>>>>