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