home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / musicb.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1999-06-02  |  849b  |  28 lines
  1. /* MusicBase Ini anlegen */
  2.  
  3. call rxfuncadd sysloadfuncs,rexxutil,sysloadfuncs
  4. call sysloadfuncs
  5.  
  6. say "Initialisierung"
  7.  
  8. PARSE SOURCE . . pgmname .
  9. teila=filespec("D",pgmname)
  10. teilb=filespec("P",pgmname)
  11. pfname=teila||teilb
  12.  
  13. say "Erzeuge Ordner und Programmobjekte"
  14.  
  15. rc=syscreateobject("WPFolder","MusicBase/2","<WP_DESKTOP>","OBJECTID=<MB2_Folder>","R")
  16.  
  17. rc=SysCreateObject(,
  18.                      "WPUrl",,
  19.                      "MusicBase/2 Homepage",,
  20.                      "<MB2_Folder>",,
  21.                      "DEFAULTVIEW=CONTENTS;" ||,
  22.                      "ICONRESOURCE=29 WPINET.DLL;" ||,
  23.                      "LOCATOR=http://www.warphouse.de" ,,
  24.                      reply);
  25.  
  26. rc=syscreateobject("WPProgram","MusicBase/2 earlyPREVIEW","<MB2_Folder>","EXENAME="||pfname||"musicb.exe","R")
  27.  
  28. say "Installation beendet"