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