home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / dist.zip / install.cmd next >
OS/2 REXX Batch file  |  1994-12-12  |  1KB  |  38 lines
  1. /* Install.cmd                                                      */
  2. /* Signature/2 auf der WPS installieren                             */
  3. /* Reinhard Fischer, 24.11.94                                       */
  4.  
  5. call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
  6. call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
  7. call RxFuncAdd 'SysCls', 'RexxUtil', 'SysCls'
  8.  
  9. call SysCls
  10. pgm=Directory() || '\' || 'SIGN.EXE'
  11.  
  12. /* ist das Programm überhaupt vorhanden */
  13. rc=SysFileTree(pgm,datei,'F')
  14.     if datei.0 !> 0 || rc=0
  15.        then do
  16.             say 'Install must be started from the Signature/2 Home Directory'
  17.             say 'Installation unsuccesful!'
  18.             exit
  19.        end  /* Do */
  20.  
  21. say ''
  22. say 'Creating Program-Object to start Signature/2 on WPS'
  23. say ''
  24.  
  25. /* Parameter für SysCreateObject: */
  26. param ='EXENAME=' pgm
  27.  
  28. /* Objekt auf der WPS anlegen */
  29. IF SysCreateObject("WPPROGRAM","Signature/2","<WP_DESKTOP>",param)
  30.    THEN DO
  31.         say 'Object created on WPS!'
  32.         say 'Installation successful!'
  33.    END
  34.    ELSE DO
  35.         say 'Could not create object on WPS!'
  36.         say 'Installation unsuccessful!'
  37.    END
  38.