home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mega Top 1
/
os2_top1.zip
/
os2_top1
/
APPS
/
DATACOM
/
PACKET
/
FPAC241
/
FPACINST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-06-19
|
3KB
|
105 lines
/* WPS-Installationsroutine für FlexPacket/2 */
/* Anlegen eines Ordners mit Programmobjekten */
/* auf dem WPS-Desktop für Packet Radio. */
/* (C) 11.9.1993 Henning Stöcklein DB5SH */
/* Version: 19.6.1994 */
/* REXXUTIL laden */
CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
CALL sysloadfuncs
CALL SysCls
SAY
SAY 'FPACINST.CMD: Anlegen eines WPS-Objekts für FlexPacket/2'
SAY
SAY 'Hinweis: Die Dateien von FlexPacket/2 sollten bereits kopiert sein.'
SAY 'Andernfalls den Prozeß bitte jetzt mit CTRL-C abbrechen.'
SAY 'In welchem Verzeichnis befindet sich FlexPacket/2 ? [z.B. E:\FPAC]'
SAY
PULL Path
SAY
/* Abfrage, ob FlexPacket/2 wirklich installiert ist */
SAY Path'\FPAC.* suchen ...'
CALL SysFileTree Path'\FPAC.*', Datei, 'F'
IF Datei.0 < 3 THEN
DO
SAY Path'\FPAC.* nicht gefunden.'
SAY 'FlexPacket/2 ist hier noch nicht installiert !'
EXIT
END
SAY Datei.0' Dateien zu FlexPacket/2 gefunden ...'
/* Den Ordner anlegen */
Klasse='WPFolder'
Titel='FlexPacket für OS/2'
Ort='<WP_DESKTOP>'
Param='OBJECTID=<FPAC_ORDNER>;ICONFILE='Path'\FPACFOLD.ICO'
CALL CreateObject
/* Die Programmobjekte anlegen */
Klasse='WPProgram'
Titel='FlexPacket/2'
Ort='<FPAC_ORDNER>'
Param='PROGTYPE=PM;EXENAME='Path'\FPAC.EXE;ICONFILE='Path'\FPAC.ICO;STARTUPDIR='Path';'
CALL CreateObject
Klasse='WPShadow'
Titel='Connect-Liste'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\FPAC.CON;'
CALL CreateObject
Klasse='WPShadow'
Titel='Rufzeichen-Liste'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\FPAC.USR;'
CALL CreateObject
Klasse='WPShadow'
Titel='TNC-Reset'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\TNC.EXI;'
CALL CreateObject
Klasse='WPShadow'
Titel='TNC-Setup'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\TNC.INI;'
CALL CreateObject
Klasse='WPShadow'
Titel='Kurzinfo'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\FPAC.1ST;'
CALL CreateObject
Klasse='WPShadow'
Titel='Readme'
Ort='<FPAC_ORDNER>'
Param='SHADOWID='Path'\READ.ME;'
CALL CreateObject
Klasse='WPProgram'
Titel='Referenzhandbuch'
Ort='<FPAC_ORDNER>'
Param='PROGTYPE=PM;EXENAME=VIEW.EXE;PARAMETERS=FPAC;ICONFILE='Path'\BUCH.ICO;STARTUPDIR='Path';'
CALL CreateObject
SAY
SAY 'Der Ordner und die Programmsymbole sind jetzt angelegt.'
EXIT
/* Unterprogramm: Objekt anlegen */
CreateObject:
SAY 'Es wird das Objekt 'Titel' angelegt.'
result = SysCreateObject(Klasse, Titel, Ort, Param)
if result = 1 THEN
SAY 'Ok.'
ELSE
SAY 'Fehler !'
RETURN
/* Ende von FPACINST.CMD */