home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 11 Util
/
11-Util.zip
/
suite.zip
/
sfx.zip
/
Sample3.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
2000-01-13
|
523b
|
20 lines
/* Messagebox Test */
title='MessageBox Test'
message='Press a button and see what the response is'
MB.1='YESNO'
MB.2='YESNOCNCL'
MB.3='RETRY'
MB.4='IGNORE'
MB.0=4
response=VpMessageBox(window,title,'The response variable for this messagbox is always - OK')
do index = 1 to 4
response=VpMessageBox(window,title,message,MB.index)
rc=VpMessageBox(window,title,'The response variable returned - '||response)
end
/* Set an install directory */
InstDir='C:\Bob'
CALL VpSetItemValue DirWin,1003,InstDir