home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 2 BBS
/
02-BBS.zip
/
cdcr206a.zip
/
SETICON.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-10-29
|
1KB
|
51 lines
/* CD Carousel Desktop setup program */
'@Echo Off'
Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
Call SysLoadFuncs
Signal On Failure Name FAILURE
Signal On Halt Name HALT
Signal On Syntax Name SYNTAX
Call SysCls
Say 'This program will create an Icon on your Desktop for CD Carousel...'
Say ''
Say 'Please enter the full drive and pathname of the directory where'
Say ' CD Carousel is installed: '
Pull Directory
If Directory = "" Then call done
Say 'Creating program object...'
Title = 'CD Carousel v2.06a^UNREGISTERED'
Type = 'WPProgram'
Folder = '<WP_DESKTOP>'
Parms = "MINWIN=DESKTOP;PROGTYPE=PM;EXENAME="Directory"\CDMENU.CMD;STARTUPDIR="Directory";OBJECTID="Directory"\CDCAR;NOPRINT=YES;"
Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
If Result = 1 Then do
Say 'Object created! Done.'
say 'Now open the folder'"'"'s settings and under the Optional Parameters enter'
say 'the default task number (ex. 01).'
end
If Result <> 1 Then Say 'ERROR: Object not created.'
Signal DONE
FAILURE:
Say 'REXX failure.'
Signal DONE
HALT:
Say 'REXX halt.'
Signal DONE
SYNTAX:
Say 'REXX syntax error.'
Signal DONE
DONE:
Exit