>>>>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) >>>>>>>>
>>>DECLARE INTEGER ShellExecute IN shell32.dll ; >>> INTEGER hndWin, ; >>> STRING cAction, ; >>> STRING cFileName, ; >>> STRING cParams, ; >>> STRING cDir, ; >>> INTEGER nShowWin >>> >>>cURL = ALLTRIM(TableName.WEB_URL) >>>cAction = "open" >>>ShellExecute(0,cAction,cURL,"","",1) >>>>>>