home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 6 File / 06-File.zip / lcmd117o.zip / lcmdinst.cmd < prev    next >
OS/2 REXX Batch file  |  2000-07-26  |  4KB  |  132 lines
  1. /*
  2.  * This REXX script will install The Larsen Commander folder object on your
  3.  * WPS desktop. The folder object will have the WPS ID <LarsenCommanderFolder>.
  4.  * This script checks if the folder already exist. If it does then it will
  5.  * be automatically updated rather than replaced and a shadow will be created
  6.  * on the desktop if necessary.
  7.  */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. say ""
  13. say "-----------------------------------------------------------------------------"
  14. say ""
  15. say "Larsen Commander Desktop Installation Utility"
  16. say ""
  17. say "Do you want to install The Larsen Commander object on your Desktop (y or n)?"
  18. say ""
  19.  
  20. key = SysGetKey('NOECHO')
  21. parse upper var key key
  22. if key == 'N' then call dont_install
  23. call install
  24.  
  25. dont_install:
  26. say "Installation was canceled."
  27. call end
  28.  
  29. install:
  30. say "Creating or updating The Larsen Commander objects..."
  31.  
  32. Directory = directory()
  33.  
  34. /*
  35.  * First, create the LC folder object. If the LC folder is already
  36.  * existing then make a shadow on the desktop, but only if the already
  37.  * existing LC folder is existing in another folder than the desktop.
  38.  */
  39.  
  40. type="WPFolder"
  41. title="Larsen Commander"
  42. folder="<WP_DESKTOP>"
  43. objid="<LarsenCommanderFolder>"
  44. params="BACKGROUND="Directory"\lcmdfldr.bmp,T,,I,0 0 0;ICONVIEWPOS=10,35,60,40;ICONFONT=9.WarpSans Bold;ICONTEXTCOLOR=0 0 64;ICONSHADOWCOLOR=0 0 255;ICONVIEW=FLOWED;OBJECTID="objid";ICONFILE="Directory"\lcmdfld1.ico;ICONNFILE=1,"Directory"\lcmdfld2.ico;"
  45. if SysCreateObject(type, title, folder, params, "fail") then
  46.    say "Larsen Commander Folder Object successfully created."
  47. else do
  48.    type="WPShadow"
  49.    params="SHADOWID="objid";"
  50.    if SysCreateObject(type, title, folder, params, "fail") then do
  51.       say "Larsen Commander Folder Shadow Object already exists!"
  52.    end
  53. end
  54.  
  55. /*
  56.  * Create or update the README object.
  57.  */
  58.  
  59. type="WPShadow"
  60. folder="<LarsenCommanderFolder>"
  61. params="SHADOWID="Directory"\lcmd.txt;"
  62. if SysCreateObject(type, "lcmd.txt", folder, params, "replace") then
  63.    say "LCMD.TXT Shadow Object successfully created."
  64. else do
  65.    say "Failed on create the LCMD.TXT Shadow Object!"
  66.    call end
  67. end
  68.  
  69. /*
  70.  * Create or update the FAQ object.
  71.  */
  72.  
  73. type="WPShadow"
  74. folder="<LarsenCommanderFolder>"
  75. params="SHADOWID="Directory"\lcmdfaq.htm;"
  76. if SysCreateObject(type, "lcmdfaq.htm", folder, params, "replace") then
  77.    say "LCMDFAQ.HTM Shadow Object successfully created."
  78. else do
  79.    say "Failed on create the LCMDFAQ.HTM Shadow Object!"
  80.    call end
  81. end
  82.  
  83. /*
  84.  * Create or update the KEYS HELP object.
  85.  */
  86.  
  87. type="WPShadow"
  88. folder="<LarsenCommanderFolder>"
  89. params="SHADOWID="Directory"\lcmdkeys.txt;"
  90. if SysCreateObject(type, "lcmdkeys.txt", folder, params, "replace") then
  91.    say "LCMDKEYS.TXT Shadow Object successfully created."
  92. else do
  93.    say "Failed on create the LCMDKEYS.TXT Shadow Object!"
  94.    call end
  95. end
  96.  
  97. /*
  98.  * Create or update the User Menu Resource Script program object.
  99.  */
  100.  
  101. type="WPProgram"
  102. title="User Menu Definition"
  103. objid="<LarsenCommanderUserResourceScript>"
  104. folder="<LarsenCommanderFolder>"
  105. params="PROGTYPE=PM;EXENAME=e.exe;PARAMETERS=lcmduser.rc;OBJECTID="objid";STARTUPDIR="Directory";"
  106. if SysCreateObject(type, title, folder, params, "update") then
  107.    say "User Menu Definition Object successfully created."
  108. else do
  109.    say "Failed on create the User Menu Definition Object!"
  110.    call end
  111. end
  112.  
  113. /*
  114.  * Create or update the LC program object.
  115.  */
  116.  
  117. type="WPProgram"
  118. title="Larsen Commander"
  119. objid="<LarsenCommanderProg>"
  120. folder="<LarsenCommanderFolder>"
  121. params="PROGTYPE=PM;EXENAME="Directory"\lcmd.exe;OBJECTID="objid";STARTUPDIR="Directory";ICONFILE="Directory"\lcmd.ico;"
  122. if SysCreateObject(type, title, folder, params, "update") then
  123.    say "Larsen Commander Program Object successfully created."
  124. else do
  125.    say "Failed on create the Larsen Commander Program Object!"
  126.    call end
  127. end
  128.  
  129. end:
  130. exit 0
  131.  
  132.