home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
dz140d.zip
/
dzinst.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-03-11
|
1KB
|
52 lines
/* WCBuild.cmd */
curdir = directory()
/* Load REXXUTIL */
call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
call sysloadfuncs
/* The basic call is listed next. */
/* result = SysCreateObject(classname, title, location, setup) */
call SysCls
Say " You Are installing Dropzone Version 1.40D "
Say " "
Say " Black Pine Development CONNOT be held Responsibled for"
Say " any direct or indirect damage caused by using TIE!!!"
Say " Installation impies aggreement to these terms."
Say 'Adding Dropzone to your Desktop...'
Say '';Say 'Press Y to add TIE to The Desktop...';Say '';
parse upper value SysGetKey('NOECHO') with key
If key<>'Y' Then Exit
classname='WPProgram'
title="Dropzone 1.40"
location='<WP_DESKTOP>'
setup='PROGTYPE=PM;EXENAME='curdir'\dropzone.EXE;ICONFILE='curdir'\dropzone.ico;ASSOCFILTER=*.ini'
say setup
Call BldObj
say ' Copyright 1995 Black Pine Development'
Exit
/* Build Object */
BldObj:
call charout ,'Building: 'title
result = SysCreateObject(classname, title, location, setup)
If result=1 Then call charout ,'... Object created!'
Else call charout ,'... Not created! Return code='result
args.0 = 2
args.1 = "dropzone.inf"
args.2 = "General Information"
'VIEW' args.1 args.2
Say '';
Return