home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
ico111b1.zip
/
setup.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-09
|
1KB
|
53 lines
/* HFKFOLDR.CMD - Install IC Phone Folder & Objects on the desktop */
'@ECHO OFF'
'pkunzip2 -o sdprun.zip'
env='OS2ENVIRONMENT'
SAY
SAY "Installing IC Phone Version 1.0 - Desktop Folder"
SAY
/* Initializations */
/* Add RexxUtill functions */
/***************************/
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs
ICDIR=getenv('ICPHONE')
ICHLP=ICDIR"\HELP"
view = SysSearchPath( "PATH", "VIEW.EXE" )
ed = SysSearchPath( "PATH", "E.EXE" )
say 'Creating IC Phone Object'
rc=SysSetIcon(ICDIR"\SDPOS2.EXE", ICDIR"\SDPOS2.ICO")
rc=SysCreateObject( "WPProgram", "ICPhone", "<WP_DESKTOP>",,
"PROGTYPE=PM;EXENAME="ICDIR"\SDPOS2.EXE;STARTUPDIR="ICDIR"", "R" )
if \rc then do
say 'Failed to create the IC Phone Program Object'
return
end
say 'Successfull Installation'
return
/**************************************************************************/
/* g e t e n v */
/**************************************************************************/
getenv: procedure
numargs = arg()
if numargs <> 1 then do
say 'ERROR: getenv: number of arguments ('numargs') should be 1.'
exit
end
val = value(arg(1),,'OS2ENVIRONMENT')
return val