home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 December / Chip_1999-12_cd.bin / zkuste / Svet_OS2 / LCMD0981 / LCMD0981.ZIP / lcmdinst.cmd < prev    next >
Encoding:
Text File  |  1999-07-28  |  4.3 KB  |  146 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.txt;"
  76. if SysCreateObject(type, "lcmdfaq.txt", folder, params, "replace") then
  77.    say "LCMDFAQ.TXT Shadow Object successfully created."
  78. else do
  79.    say "Failed on create the LCMDFAQ.TXT 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 HISTORY object.
  99.  */
  100.  
  101. type="WPShadow"
  102. folder="<LarsenCommanderFolder>"
  103. params="SHADOWID="Directory"\lcmdhist.htm;"
  104. if SysCreateObject(type, "lcmdhist.htm", folder, params, "replace") then
  105.    say "LCMDHIST.HTM Shadow Object successfully created."
  106. else do
  107.    say "Failed on create the LCMDHIST.HTM Shadow Object!"
  108.    call end
  109. end
  110.  
  111. /*
  112.  * Create or update the User Menu Resource Script program object.
  113.  */
  114.  
  115. type="WPProgram"
  116. title="User Menu Definition"
  117. objid="<LarsenCommanderUserResourceScript>"
  118. folder="<LarsenCommanderFolder>"
  119. params="PROGTYPE=PM;EXENAME=e.exe;PARAMETERS=lcmduser.rc;OBJECTID="objid";STARTUPDIR="Directory";"
  120. if SysCreateObject(type, title, folder, params, "update") then
  121.    say "User Menu Definition Object successfully created."
  122. else do
  123.    say "Failed on create the User Menu Definition Object!"
  124.    call end
  125. end
  126.  
  127. /*
  128.  * Create or update the LC program object.
  129.  */
  130.  
  131. type="WPProgram"
  132. title="Larsen Commander"
  133. objid="<LarsenCommanderProg>"
  134. folder="<LarsenCommanderFolder>"
  135. params="PROGTYPE=PM;EXENAME="Directory"\lcmd.exe;OBJECTID="objid";STARTUPDIR="Directory";ICONFILE="Directory"\lcmd.ico;"
  136. if SysCreateObject(type, title, folder, params, "update") then
  137.    say "Larsen Commander Program Object successfully created."
  138. else do
  139.    say "Failed on create the Larsen Commander Program Object!"
  140.    call end
  141. end
  142.  
  143. end:
  144. exit 0
  145.  
  146.