home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / pmgraf.zip / GrafDesk.cmd < prev    next >
OS/2 REXX Batch file  |  1996-10-23  |  612b  |  26 lines
  1. /* REXX-Script zum erstellen eines Icons */
  2.  
  3. /* REXXUTIL laden */
  4. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. CALL SysLoadFuncs
  6.  
  7. /* directory feststellen */
  8. FullName = Stream("PMGraf.EXE","c","QUERY EXISTS")
  9. IF FullName = "" THEN DO
  10.   Beep(440,200)
  11.   SAY "PMGraf.EXE nicht gefunden!"
  12. END
  13. ELSE DO
  14.  
  15.   /* Objekt erstellen */
  16.   rc = SysCreateObject("WPProgram","PMGraf v1.0c", "<WP_DESKTOP>",,
  17.               "EXENAME="||FullName)
  18.   IF rc = 0 THEN DO
  19.     /* nicht erstellt */
  20.     Beep(440,200)
  21.     Say "Objekt konnte nicht erstellt werden."
  22.   END
  23.   ELSE SAY "Objekt erstellt."
  24. END
  25.  
  26. EXIT