home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: WPS_PM
/
WPS_PM.zip
/
fih113.zip
/
reinst.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-06-07
|
2KB
|
67 lines
/* Icon Heaven installation script */
/* (C)Copyright 1993-1995 by The Frobozz Magic Software Company */
Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
app = 'IHeaven'
key = 'INSTDIR'
'@echo off'
Call SysCls
say 'Icon Heaven re-installation utility version 1.13'
say '(C)Copyright 1993-1996 by the Frobozz Magic Software Company'
res = SysIni(, app, key)
if res = 'ERROR:' then do
res = stream('fim.dll', 'c', 'query exists')
if res='' then do
say 'Icon Heaven is not installed in this directory'
say 'please go to the Icon Heaven directory and run'
say 'this program again'
exit
end
res = directory()
t = SysIni(, app, key, res)
end
instdir = res
res=SysRegisterObjectClass('FIMTransIcon', instdir'\fim.dll')
res=SysRegisterObjectClass('FIMFolder', instdir'\fim.dll')
say 'Recreating Icon Heaven folder'
retval = SysCreateObject('WPFolder', 'Icon Heaven', '<WP_DESKTOP>', 'ICONFILE='instdir'\fim.ico;OBJECTID=<FIM_ICONS>', 'R')
say 'Recreating program objects'
retval = SysCreateObject('WPProgram', 'Icon Librarian', '<FIM_ICONS>', 'PROGTYPE=WINDOWABLEVIO;ASSOCFILTER=*.FIM;EXENAME='instdir'\iconlib.exe;ICONFILE='instdir'\iconlib.ico', 'R')
retval = SysCreateObject('WPProgram', 'De-Install', '<FIM_ICONS>', 'PROGTYPE=WINDOWABLEVIO;EXENAME='instdir'\deinstal.cmd', 'R')
retval = SysCreateObject('WPProgram', 'Read Me', '<FIM_ICONS>', 'PROGTYPE=PM;EXENAME=e.exe;PARAMETERS='instdir'\readme.1st', 'R')
call SysFileTree instdir'\*.fim', 'file.', 'FO'
Do i=1 to file.0
targ = instdir'\'filespec('n',file.i)
cookie1 = charin(targ)
cookie2 = charin(targ)
if cookie1 = 'L' & cookie2 = 'I' then do
dum = charin(targ,,8)
n = ''
c = charin(targ)
do until c2d(c) = 0
n = n''c
c= charin(targ)
end
retval = SysCreateObject('FIMFolder', n, '<FIM_ICONS>', 'ICONLIBRARY='targ, 'R')
say 'Library 'n' reinstalled'
call stream targ,'C','CLOSE'
end
else do
call stream targ,'C','CLOSE'
end
End
exit