home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 December / Chip_1999-12_cd.bin / zkuste / Svet_OS2 / TABLE / TABLE101.ZIP / TableWPS.cmd < prev   
Encoding:
Text File  |  1999-06-01  |  890 b   |  34 lines
  1. /* TableWPS - Install Table.exe */
  2.  
  3. IF RxFuncQuery('SysLoadFuncs') THEN DO
  4.       CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5.       CALL SysLoadFuncs
  6. END
  7. CALL SysCls
  8. SAY ' '
  9. SAY 'This program will create Program Object for Table.exe on your Desktop,'
  10. SAY ' '
  11. SAY 'Press 'Y' (and Enter) to start Installation, any other key to exit...'
  12. PULL answer
  13. IF answer <> "Y" THEN DO
  14.     Exit
  15. END
  16. SAY ' '
  17. ProgramTitle = 'Table 1.01'
  18. EXE = 'Table.exe'
  19. InstallDir = DIRECTORY()
  20. WorkDir = DIRECTORY()
  21. Setup = 'EXENAME='InstallDir'\'EXE';STARTUPDIR='WorkDir''
  22. Action = Replace
  23. SAY 'Creating Program object - Table'
  24. CALL SysCreateObject 'WPProgram',ProgramTitle,'<WP_DESKTOP>',Setup,Action
  25. SAY ' '
  26. SAY 'Program object created!'
  27. SAY ' '
  28. SAY 'Installation complete. You can start Table now.'
  29. SAY 'Press any key to exit...'
  30. PULL answer
  31. Exit
  32.  
  33. /* Kraj procedure TableWPS */
  34.