home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / fnkst221.zip / WPSFKost.CMD < prev   
OS/2 REXX Batch file  |  1997-02-07  |  762b  |  24 lines
  1. /* FonKost - Anlegen des WPS-Programmobjektes */
  2.  
  3. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  4. call SysLoadFuncs
  5.  
  6. Path = DIRECTORY()
  7.  
  8. ok = SysCreateObject("WPProgram", "FonKost", "<WP_DESKTOP>", "EXENAME="Path"\FonKost.exe;STARTUPDIR="PATH"","R")
  9. if ok = 0 then
  10.    say "Programmobjekt für FonKost konnte nicht angelegt werden !"
  11. else
  12.    say "Programmobjekt für FonKost wurde erfolgreich angelegt..."
  13.  
  14. ok = SysCreateObject("WPProgram", "StopZeit", "<WP_DESKTOP>", "EXENAME="Path"\StopZeit.exe;STARTUPDIR="PATH"","R")
  15. if ok = 0 then
  16.    say "Programmobjekt für StopZeit konnte nicht angelegt werden !"
  17. else
  18.    say "Programmobjekt für StopZeit wurde erfolgreich angelegt..."
  19.  
  20. start view stopzeit.inf
  21. start view fonkost.inf
  22.  
  23. exit
  24.