home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / autoget2.zip / createic.cmd < prev    next >
OS/2 REXX Batch file  |  1998-12-18  |  3KB  |  48 lines
  1. /*
  2.    AutoGet Installer - Object Creation Module v0.99.30
  3.    Create AutoGet Objects on Desktop 
  4.    Original Version Daniel Caetano
  5. */
  6.  
  7. parse arg installdir1 newsdir white
  8. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9. call SysLoadFuncs
  10. '@echo off'
  11.  
  12. installdir = installdir1
  13.  
  14. endchar = substr(installdir,1,1)
  15. if endchar = '"' then installdir2=substr(installdir,2,length(installdir)-2)
  16. installdir=installdir2
  17.  
  18. endchar = substr(newsdir,1,1)
  19. if endchar = '"' then installdir2=substr(newsdir,2,length(newsdir)-2)
  20.  
  21. rc = SysCreateObject("WPFolder","AutoGet/2","<WP_DESKTOP>","OBJECTID=<AGFOLDER>","REPLACE");
  22. if white=1 then call SysSetObjectData "<AGFOLDER>", "ICONFILE="installdir"\agfold.ico;BACKGROUND="installdir"\foldwhit.bmp;ICONSHADOWCOLOR=1 1 1;ICONTEXTBACKGROUNDCOLOR=255 255 255;"
  23. else call SysSetObjectData "<AGFOLDER>", "ICONFILE="installdir"\agfold.ico;BACKGROUND="installdir"\foldback.bmp;ICONSHADOWCOLOR=255 255 255;ICONTEXTBACKGROUNDCOLOR=1 1 1;"
  24. rc = SysCreateObject("WPShadow","Finished","<AGFOLDER>","SHADOWID="installdir"\finished","REPLACE")
  25. call SysSetObjectData installdir"\finished", "ICONFILE="installdir"\finished.ico;"
  26. rc = SysCreateObject("WPShadow","Waiting","<AGFOLDER>","SHADOWID="installdir"\waiting","REPLACE")
  27. call SysSetObjectData installdir"\waiting", "ICONFILE="installdir"\waiting.ico;"
  28. rc = SysCreateObject("WPShadow","Running","<AGFOLDER>","SHADOWID="installdir"\running","REPLACE")
  29. call SysSetObjectData installdir"\running", "ICONFILE="installdir"\running.ico;"
  30. rc = SysCreateObject("WPShadow","News","<AGFOLDER>","SHADOWID="installdir2,"REPLACE")
  31. call SysSetObjectData installdir2, "ICONFILE="installdir"\news.ico;"
  32. rc = SysCreateObject("WPProgram","AutoGet/2 HandBook",installdir,"OBJECTID=<AGHANDB>","REPLACE");
  33. call SysSetObjectData "<AGHANDB>","ICONFILE="installdir"\handbook.ico;EXENAME=E.EXE;PARAMETERS="installdir"\autoget.txt;" 
  34. rc = SysCreateObject("WPShadow","AutoGet/2 HandBook","<AGFOLDER>","SHADOWID=<AGHANDB>","REPLACE")
  35. rc = SysCreateObject("WPProgram","AutoGet/2 Register Form",installdir,"OBJECTID=<AGREGIST>","REPLACE");
  36. call SysSetObjectData "<AGREGIST>","ICONFILE="installdir"\handbook.ico;EXENAME=E.EXE;PARAMETERS="installdir"\register.frm;" 
  37. rc = SysCreateObject("WPShadow","AutoGet/2 Register Form","<AGFOLDER>","SHADOWID=<AGREGIST>","REPLACE")
  38. rc = SysCreateObject("WPShadow","AutoGet/2 HomePage","<AGFOLDER>","SHADOWID="installdir"\AutoGet!2 HomePage","REPLACE")
  39. call SysSetObjectData installdir"\AutoGet!2 HomePage", "ICONFILE="installdir"\url.ico;"
  40. rc = SysCreateObject("WPProgram","AutoGet/2",installdir,"OBJECTID=<AUTOGETPRG>","REPLACE")
  41. call SysSetObjectData "<AUTOGETPRG>", "ICONFILE="installdir"\autoget.ico;TITLE=AutoGet/2;EXENAME="installdir"\autoget.exe;STARTUPDIR="installdir";PROGTYPE=WINDOWABLEVIO;MINIMIZED=YES;NOAUTOCLOSE=NO;MINWIN=HIDE;CONCURRENTVIEW=NO;" 
  42. rc = SysCreateObject("WPShadow","AutoGet/2","<AGFOLDER>","SHADOWID=<AUTOGETPRG>","REPLACE")
  43. rc = SysCreateObject("WPShadow","AutoGet/2","<WP_START>","SHADOWID=<AUTOGETPRG>","REPLACE")
  44.  
  45. rc = SysCreateObject("WPProgram","ReCreate AutoGet/2 Folder",installdir,"OBJECTID=<AGRECREATE>","REPLACE");
  46. call SysSetObjectData "<AGRECREATE>","ICONFILE="installdir"\recreate.ico;EXENAME="installdir"\createic.cmd;PARAMETERS="installdir1" "newsdir" "white";MINWIN=HIDE;MINIMIZED=YES;NOAUTOCLOSE=NO;"
  47. rc = SysCreateObject("WPShadow","ReCreate AutoGet/2 Folder","<AGFOLDER>","SHADOWID=<AGRECREATE>","REPLACE")
  48.