>>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) >>>>>>>>>>