home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / SPIELE / TRIPL107 / REGISTER.CMD < prev    next >
OS/2 REXX Batch file  |  1997-10-04  |  1KB  |  46 lines
  1. /* Execute this program after you have copied all of the files */
  2. /* in a subdirectory of your choice.                           */
  3. /* This program will create an icon on the desktop and         */
  4. /* register the program for you. If you already have an icon   */
  5. /* for TRIPLES on the desktop, please delete the icon before   */
  6. /* calling this program.                                       */
  7. /* Please enter your name and the key exactly as on the        */
  8. /* letter that you got, because the values are casesensitive   */
  9.  
  10. call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  11. call SysLoadFuncs
  12.  
  13. say "                         Triples for OS/2"
  14. say ""
  15. say "The installation program will create an icon for Triples 1.07 on the desktop"
  16. say ""
  17. say "Continue?"
  18. say "(Y/N)"
  19.  
  20. PARSE PULL reply
  21. if reply = "N" | reply = "n" then exit
  22.  
  23. title="Triples 1.07"
  24. classname='WPProgram'
  25. location='<WP_DESKTOP>'
  26. curdir=directory()'\triples.exe'
  27. say 'Please enter your name:'
  28. parse pull name
  29. say 'Please enter your key:'
  30. pull key
  31.  
  32. result=SysCreateObject(classname,title,location,'PARAMETERS=-N 'name' -K 'key';PROGTYPE=PM;EXENAME='curdir'')
  33.  
  34.  
  35. If result then
  36.    say "Icon for Triples 1.07 created..."
  37. else do
  38.    say "ERROR              : The objects have not been installed,due to an error."
  39.    say "POSSIBLE CAUSE     : The objects already exist on the desktop."
  40.    say "ACTION             : Remove the already existing objects and try again."
  41.    pull key
  42. end
  43.  
  44.  
  45.  
  46.