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 >
Wrap
Text File
|
1995-11-15
|
2KB
|
92 lines
@batchwnd off
@executewnd off
:/ --------------------------------------------------------------
:/ WinBatchEhサンプルバッチ - MENUSEL.BTW
:/ ボタン選択のメニュー。
:/
:/ Author : Yohei Shimizu
:/ Version: 1.21
:/ Date : 1995/11/15
:/
:/ History: 1.0 1995/05/24
:/ Initial Version
:/ 1.1 1995/06/11
:/ DROPFILE.BTWを追加
:/ 他細かな変更
:/ 1.11 1995/06/24
:/ GM0.BTWを追加
:/ 1.2 1995/08/16
:/ VIEWSCR.BTWを追加
:/ 配列を使用してすっきりさせた
:/ バッチ起動後カレントディレクトリを戻すようにした
:/ 1.21 1995/11/15
:/ バッチ起動後カレントドライブを戻すようにした
:/ --------------------------------------------------------------
:/ WinBatchEhのバージョンのチェック(1.06以上が必要)
:/ バージョン 1.01 以前ではgetversionがサポートされてないので先にERRORLEVEL
:/ に入れておく
set ERRORLEVEL=101
getversion
if not ERRORLEVEL 106
messagebox このバッチを動作させるには WinBatchEh バージョン 1.06 以降を使用してください.
exit
endif
set TITLE[1]=普通のサンプル
set NAME[1]=sample.bat
set TITLE[2]=電卓を使ったテスト
set NAME[2]=testcalc.btw
set TITLE[3]=全WRIファイルを印刷
set NAME[3]=prtwri1.btw
set TITLE[4]=選択した全WRIファイルを印刷
set NAME[4]=prtwri2.btw
set TITLE[5]=ファイルマネージャからドロップ
set NAME[5]=dropfile.btw
set TITLE[6]=次回の壁紙を変更
set NAME[6]=chgwallp.btw
set TITLE[7]=スクリーンセーバービューア
set NAME[7]=viewscr.btw
set TITLE[8]=数あてゲーム
set NAME[8]=gm0.btw
set TITLE[9]=
set NAME[9]=
:/ ドライブとカレントディレクトリを取得
getcurent=GCD_DRV DRV
getcurent=GCD_PATH CWD
while 1
choicebutton /T:WinBatchEhサンプルバッチメニュー /M:起動してみたいバッチを選択してください /B
%TITLE[1]%
%TITLE[2]%
%TITLE[3]%
%TITLE[4]%
%TITLE[5]%
%TITLE[6]%
%TITLE[7]%
%TITLE[8]%
%TITLE[9]%
終了
.
if %ERRORLEVEL%==10 exit
sprintf NAME \(NAME[%ERRORLEVEL%])
:/ バッチによっては実行ウィンドウを使用するので表示させておく
@batchwnd on
@executewnd on
@cls
@call %NAME%
@batchwnd off
@executewnd off
:/ ドライブとカレントディレクトリを戻す
%DRV%
cd %CWD%
endwhile