|
|
发表于 2004-7-23 15:28:36
|
显示全部楼层
那句是设置壁纸的
- AddToMenu Sbgimg "设置桌面壁纸" Title
- PipeRead "listbg.pl"
复制代码
这是listbg.pl 放在/usr/bin/ 下 并使可执行 # chmod 755 /usr/bin/*
===============listbg.pl=======================================
- #/usr/bin/perl
- $usrdir="/c/doc/bak/tp/"; # 改为您的壁纸目录
- opendir(FD,"$usrdir");
- readdir(FD);readdir(FD);
- $un=0;
- while($a=readdir(FD)){
- $fd[$un]=$a;
- $un++;
- print "+ "$usrdir$a" exec xpmroot $usrdir$a \n";
- }
- closedir(FD);
复制代码 |
|