Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Can I run an external application from Progress 8.2c ?
- Thread starter ttagle
- Start date
jlsmithhartfiel
Programmer
We've used this method with success:
def var vli-rtn_code as int no-undo.
RUN ShellExecuteA
(INPUT 0,
INPUT 0,
INPUT "notepad.exe",
INPUT 0,
INPUT 0,
INPUT 1, /* 1=normal 2=minimized */
OUTPUT vli-rtn_code).
PROCEDURE ShellExecuteA EXTERNAL "shell32.dll": /* Run Windows application */
DEFINE INPUT PARAMETER null_value1 AS LONG.
DEFINE INPUT PARAMETER null_value2 AS LONG.
DEFINE INPUT PARAMETER prog_name AS CHAR.
DEFINE INPUT PARAMETER null_value3 AS LONG.
DEFINE INPUT PARAMETER null_value4 AS LONG.
DEFINE INPUT PARAMETER prog_style AS SHORT.
DEFINE RETURN PARAMETER StatusCode AS LONG.
END PROCEDURE. Hope this helps,
Jessica![[ponytails2]](/data/assets/smilies/ponytails2.gif "[ponytails2] [ponytails2]")
def var vli-rtn_code as int no-undo.
RUN ShellExecuteA
(INPUT 0,
INPUT 0,
INPUT "notepad.exe",
INPUT 0,
INPUT 0,
INPUT 1, /* 1=normal 2=minimized */
OUTPUT vli-rtn_code).
PROCEDURE ShellExecuteA EXTERNAL "shell32.dll": /* Run Windows application */
DEFINE INPUT PARAMETER null_value1 AS LONG.
DEFINE INPUT PARAMETER null_value2 AS LONG.
DEFINE INPUT PARAMETER prog_name AS CHAR.
DEFINE INPUT PARAMETER null_value3 AS LONG.
DEFINE INPUT PARAMETER null_value4 AS LONG.
DEFINE INPUT PARAMETER prog_style AS SHORT.
DEFINE RETURN PARAMETER StatusCode AS LONG.
END PROCEDURE. Hope this helps,
Jessica
- Status
Similar threads
- Locked
- Question