home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: SysTools
/
SysTools.zip
/
mse.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-02-15
|
3KB
|
97 lines
/*
* MSE installation program
*
* Note: To run unattended, use /B, /D or /S on the command line
* (for example, "INSTALL /B") to answer the one question that
* MSE asks.
*/
'@Echo off'
'cls'
/* tell the nice people who we are */
say ''
say ' ┌────────────────────────────────────────────────────────────────────────────┐'
say ' │ │'
say ' │ MSE Mouse and System Enhancer installation program │'
say ' ├────────────────────────────────────────────────────────────────────────────┤'
say ' │ MSE copyright (c) 1997/8 by M. Kimes │'
say ' │ all rights reserved │'
say ' │ │'
say ' └────────────────────────────────────────────────────────────────────────────┘'
say ''
/* get current directory */
curdir = directory()
/* see if we have what we need to run */
rc = stream('msehook.dll','c','query exists')
if rc = '' then
do
say 'Sorry, MSEHOOK.DLL not found. Must not be right directory. Terminating.'
exit
end
rc = stream('mse.exe','c','query exists')
if rc = '' then
do
say 'Sorry, MSE.EXE not found. Must not be right directory. Terminating.'
exit
end
/* load system utility functions */
call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs
/* skip input? */
dummy = ''
parse upper arg dummy
select
when dummy = '/B'
then dummy = 'B'
when dummy = '/S'
then dummy = 'S'
when dummy = '/D'
then dummy = 'D'
otherwise
do
/* ask where they want the program object */
call charout ,"Create MSE object on [D]esktop, in [S]tartup folder, or [B]oth? [D/S/B] "
/* get input */
dummy = ''
do forever
dummy = SysGetKey('NOECHO')
parse upper var dummy dummy
if dummy = 'D' then leave
if dummy = 'S' then leave
if dummy = 'B' then leave
end
/* got input; echo it */
call charout ,dummy
say ''
end
end
/* now do it */
if dummy = 'D' then
do
location = '<WP_DESKTOP>'
id = '<MSE_DESKTOP>'
parm = '%'
end
if dummy \= 'D' then
do
location = '<WP_START>'
id = '<MSE_START>'
parm = '/h %'
end
title = 'MSE'
classname = 'WPProgram'
setup = 'OBJECTID='id';EXENAME='curdir'\MSE.EXE;STARTUPDIR='curdir';PARAMETERS='parm
rc = SysCreateObject(classname,title,location,setup,u)
if dummy = 'B' then
do
location = '<WP_DESKTOP>'
id = '<MSE_DESKTOP>'
setup = 'OBJECTID='id';EXENAME='curdir'\MSE.EXE;STARTUPDIR='curdir';PARAMETERS=%'
rc = SysCreateObject(classname,title,location,setup,u)
end
/* tell the nice people that we're done, run it, terminate. */
say 'MSE installation is complete.'
'start mse.exe'
exit