home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
vrac_os2
/
anidemo.zip
/
INSTALL.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-31
|
2KB
|
68 lines
/* Animouse Demo installation program */
Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' /* Make REXX functions available */
Call SysLoadFuncs
Signal On Halt Name ErrorHandler /* Error handler */
Call SysCls
Say
Say
Say " Animouse Demo Installation "
Say " -------------------------- "
Say " Now creating/updating WPS program object . . ." /* Now create/update the Desktop object*/
Dir = directory()"\"
SetupString="EXENAME="Dir"ANIMDEMO.EXE;STARTUPDIR="Dir";OBJECTID=<ANIMDEMO>"
if SysCreateObject("WPFolder", "Animouse Demo", "<WP_DESKTOP>","OBJECTID=<ANIMFOLDER>") Then Do
FolderString="ICONVIEWPOS=37,40,25,20;BACKGROUND="Dir"folder.bmp,T,,I"
if SysSetObjectData("<ANIMFOLDER>", FolderString) then
Say " Folder bitmap successfuly set"
If SysCreateObject("WPProgram", "Animouse Demo", "<ANIMFOLDER>",SetupString, UPDATE) then
Say " Animouse Demo program object successfully created"
else
Say " Could not create program object."
If SysCreateShadow(Dir"readme.txt", "<ANIMFOLDER>") then
Say " Shadow of readme.txt Successfully created."
else
Say " Could not create shadow of readme.txt"
If SysCreateShadow("<ANIMDEMO>", "<WP_START>") then
Say " Shadow of Animouse Demo successfully placed in startup folder."
else
Say " Could not place Animouse Demo in startup folder"
if SysOpenObject("<ANIMFOLDER>", 1, 1) then
Say ' Folder opened successfully!'
End
else
Say "Could not create folder on the desktop"
Say " Now you get to read the README.TXT file . . ."
Command='@E README.TXT' /* Look at the README.TXT */
Command
Say
Say " All Right! Animouse Demo has been installed successfully!"
Exit
/******* ErrorHandler procedure */
ErrorHandler:
Call SysCls
Say " EEEEWWWW! Unknown error! - aborting installation . . ."
Exit