home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: InfoMgt
/
InfoMgt.zip
/
musicb.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-06-02
|
849b
|
28 lines
/* MusicBase Ini anlegen */
call rxfuncadd sysloadfuncs,rexxutil,sysloadfuncs
call sysloadfuncs
say "Initialisierung"
PARSE SOURCE . . pgmname .
teila=filespec("D",pgmname)
teilb=filespec("P",pgmname)
pfname=teila||teilb
say "Erzeuge Ordner und Programmobjekte"
rc=syscreateobject("WPFolder","MusicBase/2","<WP_DESKTOP>","OBJECTID=<MB2_Folder>","R")
rc=SysCreateObject(,
"WPUrl",,
"MusicBase/2 Homepage",,
"<MB2_Folder>",,
"DEFAULTVIEW=CONTENTS;" ||,
"ICONRESOURCE=29 WPINET.DLL;" ||,
"LOCATOR=http://www.warphouse.de" ,,
reply);
rc=syscreateobject("WPProgram","MusicBase/2 earlyPREVIEW","<MB2_Folder>","EXENAME="||pfname||"musicb.exe","R")
say "Installation beendet"