last update: Jan. 21 1997

壁紙をランダムに選択するツール (REXX)

別にアーカイブにするほどでもないんで, 直接書いてしまいます (^_^;)
ＨＴＭＬのソースから切り出すなり, 自分の手で打ち込むなりしてください.

/*
  background changer BGRND.CMD
  copyright(c) ark@dan.wind.ne.jp
*/

call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs

deffile = 'bgrnd.def'

filenum = 0
do while lines(deffile) = 1
  fname = linein(deffile)
  if length(fname) = 0     then iterate
  if left(fname, 1) = ';'  then iterate
  filenum = filenum + 1
  files.filenum = fname
  files.0 = filenum
end

num = random(1, files.0)

setup = 'BACKGROUND='files.num',S,1,I,'
/* setup = 'BACKGROUND='files.num',T,,I,' */

result = SysSetObjectData('<WP_DESKTOP>', setup)
call SysDropFuncs
    

deffile で指定しているファイルに, 使いたい壁紙を書いておいてから このプログラムを実行すると, ファイルに書かれた壁紙からランダムに選んで設定します.
このファイルがカレントディレクトリ以外にある時は, deffile を 絶対パス指定に直してください.
ちなみに, このプログラムでは「サイズ変更イメージ（１×１）」に設定されます. 最後の setup = 'BACKGROUND='... のところを コメント化してあるほうに 換えるとタイルイメージになります.

壁紙指定ファイル (bgrnd.def) の例
; セミコロンで始まる行はコメントです
c:\os2\bitmap\BIGBLU.BMP
c:\os2\bitmap\WARPD.BMP
c:\os2\bitmap\BLUE640.BMP