home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Multimed
/
Multimed.zip
/
starv004.zip
/
install.cmd
next >
Wrap
OS/2 REXX Batch file
|
1998-12-05
|
2KB
|
57 lines
/* Install V 1.0 von M. Hannig */
call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
call SysLoadFuncs
CALL SysCls
say 'Markus Hannig'
say 'Rexx Install 1.1'
say
say
say
/* Zielverzeichnis abfragen */
say 'Bitte geben Sie das Zielverzeichnis an:'
say 'zum Beispiel: C:\Star'
say
PARSE PULL InstDir
InstDir = STRIP(InstDir, 'T', '\')
/* verzeichnisse erstellen */
say 'Verzeichnisse werden erstellt'
if InstallDir <> "." then
DO
call SysFileTree installdir, "SearchDir", "D"
if SearchDir.0 = 0 then do
rc = SysMkDir(InstDir)
if rc <> 0 then do
say "Fehler: Directory kann nicht erstellt werden!" InstDir
end
end
end
/* Kopieren der Dateien */
say 'Dateien werden kopiert'
Befehl = '@Copy Star.exe 'InstDir'\Star.exe'
Befehl
Befehl = '@Copy Star.ico 'InstDir'\Star.ico'
Befehl
Befehl = '@Copy Star.ini 'InstDir'\Star.ini'
Befehl
Befehl = '@Copy readme.txt 'InstDir'\readme.txt'
Befehl
/* Erzeugen der Folder und Objecte */
/* Der Ordner wird erstellt */
rc =SysCreateObject("WPFolder", "Star Track", "<WP_DESKTOP>", "OBJECTID=<StarTrackOrdner>;ALWAYSSORT=NO", "Update" )
rc =SysCreateObject("WPProgram", "Star Track Public V0.04b", "<StarTrackOrdner>", "EXENAME=" || InstDir ||"\Star.exe; OBJECTID=<StarTrackExe>; SYMBOL="InstDir"\Star.ICO;STARTUPDIR=" || InstDir, "Update" )
rc =SysCreateObject("WPProgram", "Read Me" , "<StarTrackOrdner>", "EXENAME=E.EXE;PARAMETERS=" || InstDir || "\readme.txt", "replace")
Befehl="@E "InstDir"\Readme.txt"
Befehl