home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 July
/
VPR9707A.ISO
/
OLS
/
Win32
/
Wbat128p
/
WBAT128P.LZH
/
SAMPLE
/
CHGWALLP.BTW
< prev
next >
Wrap
Text File
|
1995-11-15
|
2KB
|
65 lines
@echo off
:/ --------------------------------------------------------------
:/ WinBatchEhサンプルバッチ - CHGWALLP.BTW
:/ 次回起動時の壁紙を変更
:/
:/ Author : Yohei Shimizu
:/ Version: 1.02
:/ Date : 1995/11/15
:/
:/ History: 1.0 1995/05/24
:/ Initial Version
:/ 1.01 1995/06/25
:/ 小さな変更
:/ 1.02 1995/11/15
:/ 空白を含むファイル名でも動作するようにした
:/ --------------------------------------------------------------
:/ 注意が不要なら下の行は削除してください
echo 次回起動時の壁紙の変更を行います.
echo よろしければ何かキーを押してください.
echo 中止するなら [ESC] キーを押してください.
pause>nul
:/ Windowsのドライブ, ディレクトリに移動
:/ ここを適当なディレクトリに変えれば \WINDOWS 以外でも動く
strtokfile=STF_DRV DRV %windir%
%DRV%
cd %WINDIR%
:/ .BMPファイルのリストのファイルが無ければ作成
if not exist bmplist.ini
set COUNT=0
for %%a in (*.bmp) do
sprintf COUNT %%d %COUNT%+1
writeinistring Wallpaper Entry%COUNT% "%%a" bmplist.ini
endfor
writeinistring Wallpaper TotalCount %COUNT% bmplist.ini
endif
:/ .BMPファイルのリストからrandomで適当な壁紙を選ぶ
getinistring Wallpaper TotalCount TOTALCOUNT bmplist.ini
if ERRORLEVEL 1 goto NOFILES
if %TOTALCOUNT%.==0. goto NOFILES
set errorlevel=random %TOTALCOUNT%
sprintf CHGNUMBER %%d %ERRORLEVEL%+1
getinistring Wallpaper Entry%CHGNUMBER% WALLNAME bmplist.ini
echo 壁紙を %WALLNAME% に設定しています...
:/ 壁紙名を変更
writeinistring Desktop Wallpaper "%WALLNAME%" win.ini
:/ WinBatchEh 1.03 以上ではwin.iniへの設定の代わりに次のようにして
:/ その場で変えることもできる
:/ systemparametersinfo SPI_SETDESKWALLPAPER "%WALLNAME%" SPIF_UPDATEINIFILE
:/ Patternは "(なし)" にしておく
writeinistring Desktop Pattern (なし) win.ini
:/ 並べて表示にする
writeinistring Desktop TileWallpaper 1 win.ini
exit
:NOFILES
messagebox BMPファイルが見つかりません. 処理を中止します.