/*------------------------------------------------------------------------
    File        : openLinkOnBrowser
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : javier.garcia
    Created     : Mon Jul 01 13:54:34 CEST 2019
    Notes       :
  ----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */
DEFINE INPUT  PARAMETER iParent    AS INT64 NO-UNDO.
DEFINE INPUT  PARAMETER cOperation AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER cURL AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER cCommand AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER cDirectory AS CHARACTER NO-UNDO.
DEFINE INPUT  PARAMETER iWindowStyle AS INT64 NO-UNDO.

DEFINE OUTPUT PARAMETER hInstance AS INTEGER NO-UNDO.

/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */
RUN ShellExecuteA (INPUT iParent,
    INPUT cOperation, 
    INPUT cURL, 
    INPUT cCommand, 
    INPUT cDirectory, 
    INPUT iWindowStyle, 
    OUTPUT hInstance ). 

/* **********************  Internal Procedures  *********************** */
PROCEDURE ShellExecuteA EXTERNAL "shell32.dll":
    DEFINE INPUT PARAMETER hWindowHandle AS INT64.      /* Handle to parent window */
    DEFINE INPUT PARAMETER lpOperation   AS CHARACTER.  /* Operation to perform: open, print */
    DEFINE INPUT PARAMETER lpFile        AS CHARACTER.  /* Document or executable name */
    DEFINE INPUT PARAMETER lpParameters  AS CHARACTER.  /* Command line parameters to executable in lpFile */
    DEFINE INPUT PARAMETER lpDirectory   AS CHARACTER.  /* Default directory */
    DEFINE INPUT PARAMETER nShowCmd      AS INT64.      /* Whether shown when opened:
                                                           0 hidden, 
                                                           1 normal, 
                                                           minimized 2, 
                                                           maximized 3,
                                                           0 if lpFile is a document */
    DEFINE RETURN PARAMETER hInstance    AS INT64.      /* Less than or equal to 32 */
END.