home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
cfginfo7.zip
/
install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-09-15
|
2KB
|
72 lines
/* Install of Configinfo */
call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
call SysLoadFuncs
CALL SysCls
say 'Rexx Install'
say
say
say
/* Ask Directory */
say 'Target directory::'
say 'e.g.: C:\CNFGINFO'
say
PARSE PULL InstDir
InstDir = STRIP(InstDir, 'T', '\')
/* Create Directory */
say 'Create directorys'
if InstallDir <> "." then
DO
call SysFileTree installdir, "SearchDir", "D"
if SearchDir.0 = 0 then do
rc = SysMkDir(InstDir)
if rc <> 0 then do
say "Error: Cannot create directory!" InstDir
exit
end
end
end
/* Copy Files */
say 'copy data'
Befehl = '@Copy CNFGINFO.exe 'InstDir'\CNFGINFO.exe'
Befehl
Befehl = '@Copy CNFGINFO.INF 'InstDir'\CNFGINFO.INF'
Befehl
Befehl = '@Copy OS2CFG16.DAT 'InstDir'\OS2CFG16.DAT'
Befehl
Befehl = '@Copy CSORT.EXE 'InstDir'\CSORT.EXE'
Befehl
Befehl = '@Copy readme.eng 'InstDir'\readme.eng'
Befehl
Befehl = '@Copy readme.ger 'InstDir'\readme.ger'
Befehl
MakeIcon:
classname='WPFolder'
title='ConfigInfo'
location='<WP_DESKTOP>'
setup='OBJECTID=<CNFGINFO_FOLDER>;update\'
rc=SysCreateObject(classname, title, location ,setup,'U')
classname = 'WPProgram'
title = 'INFORMATION'
location = '<CNFGINFO_FOLDER>'
INFNAME = InstDir || '\CNFGINFO.INF'
WorkDir = InstDir
setup = 'OBJECTID=<CONFIGINFOINF>;EXENAME=VIEW.EXE;PARAMETERS='INFNAME';STARTUPDIR='Workdir
rc=SysCreateObject(classname, title, location ,setup,'U')
/* Create Folder and Objects */
rc =SysCreateObject("WPFolder", "ConfigInfo", "<WP_DESKTOP>", "OBJECTID=<CNFGINFOOrdner>;ALWAYSSORT=NO", "Update" )
rc =SysCreateObject("WPProgram", "ConfigInfo", "<CNFGINFOOrdner>", "EXENAME=" || InstDir ||"\CNFGINFO.exe; OBJECTID=<ConfigInfoExe>; STARTUPDIR=" || InstDir, "Update" )