home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707A.ISO / OLS / Win32 / Wbat128p / WBAT128P.LZH / SAMPLE / MENUSEL.BTW < prev    next >
Text File  |  1995-11-15  |  2KB  |  92 lines
  1. @batchwnd off
  2. @executewnd off
  3. :/    --------------------------------------------------------------
  4. :/    WinBatchEhサンプルバッチ - MENUSEL.BTW
  5. :/    ボタン選択のメニュー。
  6. :/
  7. :/    Author : Yohei Shimizu
  8. :/    Version: 1.21
  9. :/    Date   : 1995/11/15
  10. :/
  11. :/    History: 1.0    1995/05/24
  12. :/            Initial Version
  13. :/         1.1    1995/06/11
  14. :/            DROPFILE.BTWを追加
  15. :/            他細かな変更
  16. :/         1.11    1995/06/24
  17. :/            GM0.BTWを追加
  18. :/         1.2    1995/08/16
  19. :/            VIEWSCR.BTWを追加
  20. :/            配列を使用してすっきりさせた
  21. :/            バッチ起動後カレントディレクトリを戻すようにした
  22. :/         1.21    1995/11/15
  23. :/            バッチ起動後カレントドライブを戻すようにした
  24. :/    --------------------------------------------------------------
  25.  
  26. :/ WinBatchEhのバージョンのチェック(1.06以上が必要)
  27.  
  28. :/ バージョン 1.01 以前ではgetversionがサポートされてないので先にERRORLEVEL
  29. :/ に入れておく
  30. set ERRORLEVEL=101
  31. getversion
  32. if not ERRORLEVEL 106
  33.   messagebox このバッチを動作させるには WinBatchEh バージョン 1.06 以降を使用してください.
  34.   exit
  35. endif
  36.  
  37. set TITLE[1]=普通のサンプル
  38. set NAME[1]=sample.bat
  39. set TITLE[2]=電卓を使ったテスト
  40. set NAME[2]=testcalc.btw
  41. set TITLE[3]=全WRIファイルを印刷
  42. set NAME[3]=prtwri1.btw
  43. set TITLE[4]=選択した全WRIファイルを印刷
  44. set NAME[4]=prtwri2.btw
  45. set TITLE[5]=ファイルマネージャからドロップ
  46. set NAME[5]=dropfile.btw
  47. set TITLE[6]=次回の壁紙を変更
  48. set NAME[6]=chgwallp.btw
  49. set TITLE[7]=スクリーンセーバービューア
  50. set NAME[7]=viewscr.btw
  51. set TITLE[8]=数あてゲーム
  52. set NAME[8]=gm0.btw
  53. set TITLE[9]=
  54. set NAME[9]=
  55.  
  56. :/ ドライブとカレントディレクトリを取得
  57. getcurent=GCD_DRV DRV
  58. getcurent=GCD_PATH CWD
  59.  
  60. while 1
  61.   choicebutton /T:WinBatchEhサンプルバッチメニュー /M:起動してみたいバッチを選択してください /B
  62. %TITLE[1]%
  63. %TITLE[2]%
  64. %TITLE[3]%
  65. %TITLE[4]%
  66. %TITLE[5]%
  67. %TITLE[6]%
  68. %TITLE[7]%
  69. %TITLE[8]%
  70. %TITLE[9]%
  71. 終了
  72. .
  73.   if %ERRORLEVEL%==10 exit
  74.  
  75.   sprintf NAME \(NAME[%ERRORLEVEL%])
  76.  
  77.   :/ バッチによっては実行ウィンドウを使用するので表示させておく
  78.   @batchwnd on
  79.   @executewnd on
  80.  
  81.   @cls
  82.   @call %NAME%
  83.  
  84.   @batchwnd off
  85.   @executewnd off
  86.  
  87. :/ ドライブとカレントディレクトリを戻す
  88.   %DRV%
  89.   cd %CWD%
  90.  
  91. endwhile
  92.