home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / simsd2.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1998-11-30  |  2KB  |  58 lines
  1. /* INSTALL.CMD for Simple Shutdown for OS/2 */
  2. /* Creates a Simple Shutdown object on the OS/2 desktop */
  3. Call RxFuncAdd 'SysLoadFuncs','REXXUTIL','SysLoadFuncs';
  4. Call SysLoadFuncs; 
  5. Signal On Halt Name NOOBJECT
  6.  
  7. MGExec = "SIMSD.EXE";
  8.  
  9. /* check for the executable */
  10. MGEDir = Directory() || "\";
  11. MGEFQPN = MGEDir || MGExec;
  12. pdok = Stream(MGEFQPN,"C","QUERY EXISTS");
  13. Do While pdok = "";
  14.     LastDrv = Right(SysDriveMap(),2);
  15.     Say MGExec "could not be found in" MGEDir || ".";
  16.     Say "Enter the drive:directory containing the Simple Shutdown files...";
  17.     Say "or just [Enter] for" LastDrv "or [Ctrl+C][Enter] to quit: ";
  18.     Parse Pull MGEDir;
  19.     MGEDir = Strip(MGEDir,"B");
  20.     If MGEDir = "" Then;
  21.         MGEDir = LastDrv || "\";
  22.     Else Do;
  23.         If Right(MGEDir,1) = ":" Then Do;
  24.             MGEDir = MGEDir || "\";
  25.         End;
  26.         Else Do;
  27.             If Length(MGEDir) = 1 Then Do;
  28.                 MGEDir = Translate(MGEDir) || ":\";
  29.             End;
  30.             Else Do;
  31.                 If Right(MGEDir,1) <> "\" Then Do;
  32.                     MGEDir = MGEDir || "\";
  33.                 End;
  34.             End;
  35.         End;
  36.     End;
  37.     MGEFQPN = MGEDir || MGExec;
  38.     pdok = Stream(MGEFQPN,"C","QUERY EXISTS");
  39. End;
  40.  
  41. rc=SysCreateObject("WPProgram","Simple Shutdown","<WP_DESKTOP>",,
  42.   "OBJECTID=<SimpleShutdwn2>;"||,
  43.   "ICONPOS=50 50;"||,
  44.   "EXENAME=" || MGEFQPN || ";"||,
  45.   "PARAMETERS= ;"||,
  46.   "PROGTYPE=PM;"||,
  47.   "STARTUPDIR=" || MGEDir || ";"||,
  48.   '', 'R'); 
  49. Say;
  50. If rc = 1 Then Do;
  51.     Say "The Simple Shutdown program object was successfully created!";
  52.     Exit 0;
  53. End;
  54.  
  55. NOOBJECT:
  56. Say "I could not create a Simple Shutdown program object!"; 
  57. Exit 1;
  58.