在VFP中如何用浏览器打开一个页面

通过API函数可以直接使用系统默认浏览器打开一个页面。

*!* cp_open_url
lparameters tcUrl

DECLARE INTEGER ShellExecute IN 'Shell32.dll' INTEGER, STRING, STRING, STRING, STRING, INTEGER
=ShellExecute(0,'Open',tcUrl,'','',5)
return .t.

另外一种方式
lparameters tcUrl, tcAction, tcDirectory, tcParms
IF EMPTY(tcUrl)
   RETURN -1
ENDIF

IF EMPTY(tcAction)
   tcAction = 'OPEN'
ENDIF

IF EMPTY(tcDirectory)
   tcDirectory = SYS(2023)
ENDIF

IF EMPTY(tcParms)
   tcParms = ''
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,;
                    tcParms, tcDirectory,1)