home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / private / djmgts11.zip / PDOXRUN.ZIP / PXRUNOS2.CMD < prev    next >
OS/2 REXX Batch file  |  1992-09-22  |  2KB  |  49 lines
  1. /*PXRUNOS2.CMD     */
  2. /* CMD File to create a desktop object for Paradox Runtime  */
  3.  
  4. /* Load REXXUTIL */
  5. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  6. call sysloadfuncs
  7.  
  8. /* Clear screen and prompt user for drive and path */
  9.  
  10. call SysCls
  11.  
  12. SAY "***************************************************************************"
  13. SAY "*             PARADOX RUNTIME OS/2 INSTALLATION PROGRAM            *"
  14. SAY "***************************************************************************"
  15. SAY ""
  16. SAY "THIS CMD FILE INSTALLS A DESKTOP OBJECT FOR PARADOX RUNTIME"
  17. SAY "WITH THE ASSUMPTION THAT USERS WILL USE THE DRAG AND DROP METHOD"
  18. SAY "FOR STARTING RUNTIME"
  19. SAY ""
  20. SAY "Enter complete path for Paradox Runtime system files"
  21. PULL pdoxpath
  22. x=length(pdoxpath)
  23.  
  24. IF \(SUBSTR(pdoxpath, x, 1) = "\" )
  25.         THEN pdoxpath = pdoxpath"\"
  26.  
  27. filespec = pdoxpath"pxrunos2.ico"
  28. call SysFileTree filespec, 'file', 'F'
  29. IF file.0 = 0
  30.         THEN
  31.                 DO
  32.                 SAY pdoxpath"PDOXRUN.EXE NOT FOUND"
  33.                 EXIT
  34.                 END
  35. title = "Paradox Runtime"
  36. classname = 'WPProgram'
  37. location = '<WP_DESKTOP>'
  38. setup = 'PROGTYPE=WINDOWEDVDM;EXENAME='pdoxpath'pdoxrun.exe;STARTUPDIR='pdoxpath';SET DPMI_DOS_API=ENABLED;SET DPMI_MEMORY_LIMIT=4;ASSOCFILTER=*.SC;ICONFILE 'pdoxpath'pxrunos2.ico;'
  39.  
  40. BldObj:
  41. call charout , 'Building : 'title
  42. result = SysCreateObject(classname, title, location, setup)
  43.  
  44. If result = 1 then call charout ,'...  Object created! '
  45. Else                      call charout ,'...  Not created! Return code = 'result
  46. SAY ' '
  47.  
  48.  
  49.