在开发中,有时需求要弹出一个网页用于引导客户后续操作或者给出一个当前想要用户了解的规章制度等。这里给出一个demo。
DATA: BEGIN OF url_table OCCURS 10,
l(25),
END OF url_table.
url_table-l = 'http://www.baidu.com'.
APPEND url_table.
IF NOT url_table IS INITIAL.
CALL FUNCTION 'WS_EXECUTE'
EXPORTING program = 'C:FilesExplorer.EXE'
commandline = url_table
inform = ''
EXCEPTIONS prog_not_found = 1.
IF sy-subrc <> 0.
WRITE:/ 'Cannot find program to open Internet'.
ENDIF.
ENDIF.