home *** CD-ROM | disk | FTP | other *** search
/ Borland Programmer's Resource / Borland_Programmers_Resource_CD_1995.iso / utils / catch / run.wbf < prev   
Encoding:
Text File  |  1995-05-19  |  451 b   |  24 lines
  1. ;Example Catch file
  2. ;Copyright Sean Batten
  3.  
  4.  
  5. let dir=GetWindir()
  6. let dir=join(dir,"\*.exe")
  7. Let program=fileselect(dir)
  8. Let params=""
  9.  
  10. ;Make sure something was selected
  11. if program=="" goto abort
  12.  
  13. ;Now find out if they want to specify parameters
  14. ask ("Parameters", "Do you wish to specify parameters???")
  15. if @YES let params=input ("","Enter parameters")
  16.  
  17. run (program,params)
  18. goto end
  19.  
  20. :abort
  21. ok ("","No program selected")
  22.  
  23. :end
  24.