home *** CD-ROM | disk | FTP | other *** search
- /* rexx-program generating a program object on the dektop,
- pointing to pmCalc.exe
- Author: Martin Vieregg, Germany, May 1998 */
-
- say ""
- say "This program creates a pmCalc program object on your desktop. Continue? Y/N"
- say ""
- say "Ein pmCalc Programmobjekt wird auf der Arbeitsoberfläche erzeugt. Weiter? J/N"
- say ""
- pull YesNo
- if \ ((YesNo = "Y") | (YesNo = "y") | (YesNo = "J") | (YesNo = "j")) then exit
-
-
- Call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'
- Call SysLoadFuncs
-
- CurrentDir = directory()
-
- say "creation of a program object..."
-
- Call SysCreateObject "WPProgram", "pmCalc", "<WP_DESKTOP>",,
- "OBJECTID=<MVpmCalc>;EXENAME="CurrentDir"\pmCalc.exe;PARAMETERS=%;"
-
- say "Successful creation of program object"
-
- "pause"