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