home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Thinkpad Essentials 1997
/
cd1may97.iso
/
SETUPOS2.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-03-14
|
2KB
|
50 lines
/* Code */
/* The RexxUtil function, SysLoadFuncs, will automatically load all RexxUtil */
/* functions. */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
'Setup.Exe'
/* Get the programs to create */
rxCount = 0
rxFile ='c:\tpessen.dat'
rxLine = LINEIN( rxFile )
do while rxLine <> ''
parse var rxLine with rxTitle '|' rxExe '|' rxPath '|' rxParams '|' rxExtra
rxCount = rxCount + 1
rxPgm.rxCount.Title = rxTitle
rxPgm.rxCount.Exe = rxExe
rxPgm.rxCount.Path = rxPath
rxPgm.rxCount.Params = rxParams
rxPgm.rxCount.Extra = rxExtra
rxLine = LINEIN( rxFile )
end /* do */
/* Create a folder object, and then create a program object in that folder. */
if SysDestroyObject("<TPE_FOLDER>") Then
Say "Myfolder object destroyed."
If SysCreateObject("WPFolder", "ThinkPad Essentials", "<WP_DESKTOP>", "OBJECTID=<TPE_FOLDER>") Then
Do rxIndex=1 to rxCount
classname = 'WPProgram'
rxTitle = rxPgm.rxIndex.Title
Location = '<TPE_FOLDER>'
Setup = 'EXENAME='rxPgm.rxIndex.Exe';STARTUPDIR='rxPgm.rxIndex.Path';PARAMETERS='rxPgm.rxIndex.Params';'rxPgm.rxIndex.Extra
rxRC = SysCreateObject(classname,rxTitle,Location,Setup)
If rxRC <> 1 Then
Do
Say 'Could not create program' rxTitle rxRC
if SysDestroyObject("<TPE_FOLDER>") Then
Say "ThinkPad Essentials object destroyed."
End
End
Else
Do
Say 'Could not create folder "ThinkPad Essentials"'
if SysDestroyObject("<TPE_FOLDER>") Then
Say "Myfolder object destroyed."
End