home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 July
/
VPR9707A.ISO
/
OLS
/
Win32
/
Wbat128p
/
WBAT128P.LZH
/
SAMPLE
/
VIEWSCR.BTW
< prev
next >
Wrap
Text File
|
1995-11-15
|
3KB
|
83 lines
@batchwnd off
@executewnd off
:/ --------------------------------------------------------------
:/ WinBatchEhサンプルバッチ - VIEWSCR.BTW
:/ 任意のディレクトリのスクリーンセーバーを選択して起動する
:/
:/ Author : Yohei Shimizu
:/ Version: 1.01
:/ Date : 1995/11/15
:/
:/ History: 1.0 1995/08/16
:/ Initial Version
:/ 1.01 1995/11/15
:/ Windows95で長いファイルでも動作するようにした
:/ --------------------------------------------------------------
:/ WinBatchEhのバージョンのチェック(1.13以上が必要)
:/ バージョン 1.01 以前ではgetversionがサポートされてないので先にERRORLEVEL
:/ に入れておく
set ERRORLEVEL=101
getversion
if not ERRORLEVEL 113
messagebox このバッチを動作させるには WinBatchEh バージョン 1.13 以降を使用してください.
exit
endif
messagebox=MB_OKCANCEL+MB_FORMAT スクリーンセーバービューア(^^;)\n任意のドライブ/ディレクトリのScreenSaver(.SCR)を選択してください\nそのセーバーを起動します
if %ERRORLEVEL%==IDCANCEL exit
messagebox=MB_OKCANCEL+MB_FORMAT 現在コントロールパネルで設定されているセーバー名はそのままです(行儀がいいでしょ:-)\nセーバー起動後マウスを動かすとセーバーが終了します\nセーバー起動時にSHIFTキーを押し続けているとセーバーの設定を行なえます
if %ERRORLEVEL%==IDCANCEL exit
:/ 開始処理 - 最後に元に戻せるように現在のセーバー名を取得しておく
getinistring boot SCRNSAVE.EXE ORGSCR system.ini
:/ STOPが押されたときにも元に戻せるように
on stop goto END
while 1
:/ .SCRのファイル名を入力する
getopenfilename SAVER ScreenSaver(*.scr)
:/ キャンセルならループを抜ける
if ERRORLEVEL 1 break
:/ SHIFTキーの状態を調べる
getkeystate VK_SHIFT
if ERRORLEVEL 1
:/ SHIFTを押していれば /c を付けて起動して設定画面で起動
exec=SW_NOEXT %SAVER% /c
else
:/ SHIFTを押して無ければ普通に起動
:/ Windows95で長いファイル名だと起動しないので短いファイル名に変換する
strtokfile=STF_DRV+STF_PATHNAME+STF_SHORT SAVER "%SAVER%"
:/ セーバー名を書き込み
writeinistring boot SCRNSAVE.EXE "%SAVER%" system.ini
:/ exec=SW_NOEXT %SAVER% で起動すると設定になってしまうセーバーがあるので
:/ postmessageの方でやる
postmessage @Desktop WM_SYSCOMMAND SC_SCREENSAVE
:/ 現在のマウスの位置を取得
getcursorpos X Y
:/ マウスを動かすまでループ
while 1
getcursorpos X1 Y1
if not %X%-%Y%==%X1%-%Y1% break
endwhile
endif
endwhile
:END
:/ 終了処理 - セーバーの設定を元に戻す
writeinistring boot SCRNSAVE.EXE "%ORGSCR%" system.ini