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