home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: SysTools
/
SysTools.zip
/
sysba021.zip
/
SRC.ZIP
/
sysbar2
/
!Distribute!
/
files
/
SB2_FLDR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-10-13
|
1KB
|
34 lines
/*
************************************************************************
**
** SysBar/2 utility set
** (c) Dmitry I. Platonoff, 1995-1999
**
**----------------------------------------------------------------------
** Folder creation script
************************************************************************
*/
call RxFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject'
sICO = directory()"//SB2_FLD"
if SysCreateObject( 'WPFolder', 'SysBar/2 Utility Set', '<WP_DESKTOP>', "ICONFILE="sICO"1.ICO;ICONNFILE=1,"sICO"2.ICO;OBJECTID=<SYSBAR2FOLDER>" ) then
do
say 'SysBar/2 folder created'
end
call CreateSB2Object 'CD' 'CD Player'
call CreateSB2Object 'CLCK' 'Clock'
call CreateSB2Object 'PIPE' 'Pipe Monitor'
call CreateSB2Object 'TSWT' 'Task Switcher'
exit
CreateSB2Object:
parse arg sEXESuffix sNameSuffix
sEXE = directory()'\SB2_'sEXESuffix'.EXE'
sName = 'SysBar/2 'sNameSuffix
if SysCreateObject( 'WPProgram', sName, '<SYSBAR2FOLDER>', 'EXENAME='sEXE ) then
say 'Created object "'sName'" for 'sEXE
return;