| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- /*------------------------------------------------------------------------
- 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.
-
|
