1

現時点では、Progress アプリケーションから直接 Web ブラウザーを開くことができるコードを用意しています。

DEFINE VARIABLE cProgramName  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE cPageAddress  AS CHARACTER  NO-UNDO.
DEFINE VARIABLE iReturnResult AS INTEGER    NO-UNDO.

ASSIGN
    cProgramName = "C:\Program Files\Internet Explorer\iexplore.exe"
    cPageAddress    = "http://www.progress.com".

RUN WinExec (INPUT cProgramName + CHR(32) + cPageAddress , INPUT 1, OUTPUT iReturnResult).

PROCEDURE WinExec EXTERNAL "KERNEL32.DLL":
    DEFINE INPUT  PARAMETER ProgramName AS CHARACTER.
    DEFINE INPUT  PARAMETER VisualStyle AS LONG.
    DEFINE RETURN PARAMETER StatusCode  AS LONG.
END PROCEDURE.

ダイアログボックス、ポップアップウィンドウ、またはフレーム内でブラウザーを開きたいと思います。それを助けるコードが見つかりません!

4

1 に答える 1