home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / hamclk16.zip / makeicon.cmd < prev    next >
OS/2 REXX Batch file  |  1997-01-06  |  1KB  |  29 lines
  1. /* Installation script for HamClock */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5. '@echo off'
  6. dest=directory();
  7. say 'Would you like a shadow in the Startup folder (y/N)?'
  8. pull ans .
  9. if substr(ans,1,1)='Y' then
  10.     ans=1;
  11. if SysCreateObject("WPFolder", "HamClock's Folder", "<WP_DESKTOP>","OBJECTID=<HAMCLOCKFOLDER>", R);
  12. then do
  13.     if SysCreateObject("WPProgram", "HamClock", "<HAMCLOCKFOLDER>", "EXENAME="dest"\HAMCLOCK.EXE;OBJECTID=<HAMCLOCKEXE>",R);
  14.         then say 'Program Object Created OK'
  15.     else
  16.         say 'Failed to Create Program Object'
  17.     if SysCreateObject("WPProgram", "HamClock's Docs", "<HAMCLOCKFOLDER>", "EXENAME=VIEW.EXE;OBJECTID=<HAMCLOCKINF>;PARAMETERS="dest"\HAMCLOCK.INF",R);
  18.         then do
  19.             say 'Book Object Created OK'
  20.             if ans=1 then
  21.                 if SysCreateShadow("<HAMCLOCKEXE>", "<WP_START>");
  22.                     then say 'Shadow Created OK'
  23.             else say 'Failed to Create Shadow'
  24.         end /* do */
  25.     else
  26.         say 'Failed to Create Book Object'
  27. end
  28. else say 'Failed to Create Folder, Aborting...'
  29.