home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: SysTools
/
SysTools.zip
/
ipt115.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-12-18
|
2KB
|
72 lines
/* */
call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
call SysLoadFuncs
call SysCls
say 'Dumb little Rexx Installer for InProTrack'
say '-----------------------------------------'
say
say ' Installation...'
say
say ' ... will create folder and objects on desktop'
say ' ... will create associations of SYSLEVEL.* files with InProTrack'
say ' ... will NOT modify your config.sys and *.ini files'
say ' so stay cool :-)'
say
say 'Associate SYSLEVEL.* files with InProTrack (Y/N)?'
PARSE UPPER PULL Assoc
IF Assoc="" THEN
Assoc="N"
InstDir=directory()
/* Make icons */
say
say '--------------------------------------------'
say 'creating icons...'
say '--------------------------------------------'
mydir=Directory()
classname='WPFolder'
title='InProTrack'
location='<WP_DESKTOP>'
folderid='<InProTrack_FOLDER>'
setup='OBJECTID='||folderid||';ICONVIEW=FLOWED'
rc=SysCreateObject(classname, title, location, setup, 'U')
classname='WPProgram'
title='InProTrack'
title2='InProTrack Association'
location='<InProTrack_FOLDER>'
icon='ICONFILE='mydir||'\ipt.ico'
icon2='ICONFILE='mydir||'\iptdata.ico'
exename='EXENAME='||InstDir||'\ipt.exe'
WorkDir=InstDir
IF Assoc="Y" THEN
DO
/* Create associations */
say
say '--------------------------------------------'
say 'creating associations...'
say '--------------------------------------------'
setup='OBJECTID=<InProTrack_ASSOC>;STARTUPDIR='||Workdir||';'||icon2||';'||exename||';ASSOCFILTER=syslevel.*,SYSLEVEL.*'
rc=SysCreateObject(classname, title2, location, setup, 'U')
setup='OBJECTID=<InProTrack_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
END
ELSE
setup='OBJECTID=<InProTrack_PROGRAM>;STARTUPDIR='||Workdir||';'||icon||';'||exename
rc=SysCreateObject(classname, title, location, setup, 'U')
say
say 'Done.'
say
"@pause"
EXIT