home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / ds_skins.zip / Install.cmd next >
OS/2 REXX Batch file  |  1999-10-22  |  2KB  |  45 lines
  1. /* Run this script to set up the desktop    */
  2. /* object to change skins in Data Shield    */
  3. /*                                          */
  4. /*                                          */
  5. /* When adding new skins you may add to     */
  6. /* this objects parameters                  */
  7. /*                                          */
  8. /* Run this from the Data Shield directory  */
  9. /*                                          */
  10.  
  11. /* Load RexxUtil DLL                        */
  12. call RxFuncAdd 'SysLoadFuncs' , RexxUtil, 'SysLoadFuncs'
  13. call SysLoadFuncs
  14. Call SysCls
  15.  
  16. crlf='0d0a'x
  17. say 'This script sets up the desktop object to change skins for Data Shield'||crlf crlf
  18. say 'Be sure you have unzipped the skins archive so the directories are'
  19. say 'created directly under the Data Shield directory.'||crlf crlf
  20.  
  21. /* Is the Data Shield in this directory?     */
  22. say 'Locating dshield.exe...'
  23. if Stream('dshield.exe','C','Query Exists') = '' then do
  24.    say 'Please run this program from the same directory as the dshield.exe file'
  25.    say ''
  26.    say 'Exiting...'
  27.    exit
  28. end
  29.  
  30. /* Create the desktop object                */
  31. Title    ='Data Shield Skins'
  32. Setup    ='OBJECTID=<DS_SKIN>;'||,
  33.            'EXENAME=' || Directory() || '\SKIN.CMD;' ||,
  34.            'STARTUPDIR=' || Directory() || ';' ||,
  35.            'PARAMETERS=' || '[Choices: Marble Cyan Logs];' ||,
  36.            'MINIMIZED=YES;' ||,
  37.            'PROGTYPE=WINDOWABLEVIO;'
  38.  
  39. call SysCreateObject "WPProgram", Title, "<WP_DESKTOP>", Setup, 'Update'
  40. /* Check if the WPS object was created   */
  41. if rc = 0 then
  42.    say 'Object creation for 'Title ' failed!  rc='rc
  43. else
  44.    say 'Object created for' Title
  45.