home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
gtirc301.zip
/
MAKEICON.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-11-24
|
2KB
|
41 lines
/*********************************************************************/
/* 11/24/97 Create GammaTech IRC Program Object on Desktop */
/* */
/* Copyright (C) GammaTech Inc. 1995-1997 All Rights Reserved. */
/*********************************************************************/
Trace 'O'
Address CMD
'@ECHO OFF'
/*********************************************************************/
/* Initialization */
/*********************************************************************/
Call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
Call sysloadfuncs
/*********************************************************************/
/* Get the installation drive and path */
/*********************************************************************/
Say "Please enter the drive and path of the IRC directory."
Say "Example C:\GTIRC"
Parse Upper Pull instpath
rc = SysFileTree(instpath||'\gtirc.*', 'find', 'F')
If find.0 <> 0 then do
Call SysCreateObject 'WPFolder','GtIrc Demo','<WP_DESKTOP>','OBJECTID=<GT_DEMO>','R'
Call SysCreateObject 'WPProgram','GtIrc','<GT_DEMO>','OBJECTID=<GT_GTIRC>;EXENAME='instpath'\gtirc.exe;PROGTYPE=PM;STARTUPDIR='instpath,'R'
Call SysCreateObject 'WPProgram','GtIrc Docs','<GT_DEMO>','OBJECTID=<GT_GTDOC>;EXENAME=view.exe;PROGTYPE=PM;PARAMETERS='instpath'\gtirc.inf','R'
End
Else do
Say "The Drive:\Path is incorrect."
End
/*********************************************************************/
/* Exit Program */
/*********************************************************************/
Endit:
Exit 0