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