● 随机更换壁纸 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Mill (南小草), 信区: Program
标  题: 随机更换壁纸
发信站: 深大荔园晨风站 (Thu Feb 26 22:58:36 1998), 转信

        每次启动WINDOWS，总有不短的时间要面对桌面上的壁纸
，哪怕是自已最喜欢的一幅，如果长时间摆在前面，也多少会给人
一些单调乏的感觉。但如果每次都不知将要出现哪一幅，相信感觉
就完全不同了，至少你会新奇地瞪大眼睛：会是哪一幅呢？
        这一切实现起来并不复杂：首先，为增大安全系数，多做
几个WIN.INI的备份；第二步只需将下面的小程序编译后置于“启动”
组内，其余的工作则由程序来完成，实际上，它也只是修改了WIN.ini
中壁纸的文件名，采用TURBO PASCAL编写的源程序如下：
program wdos;
uses wincrt;
const(壁纸数及文件名可根据实际情况及个人爱好修改)
    bmpnum=5;
    bmpname:array[0..4] of string[12]=
    ('wfb4.bmp','leaves.bmp','wfb3.bmp','cars.bmp','256color.bmp');
var
    winf,bkf:text;
    i:integer;
    s:string;
begin
    assign(bkf,'c:\windows\win.ini');
    rename(bkf,'c:\windows\wini.txt');
    reset(bkf);
    assign(winf,'c:\windows\win.ini');
    rewrite(winf);
    while not eof(bkf) do
    begin
        readln(bkf,s);
        if (copy(s,1,9)='wallpaper')then
        begin
             randomize;
             i:=random(bmpnum);
             s:='Wallpaper='+bmpname[i]
        end;
    erase(bkf);
    close(winf)
end.
       程序应在TURBO PASCAL FOR WINDOWS中编译，如在TURBO PASCAL
FOR DOS 中编译需将第二行USES WINCRT改为USES CRT。

--
  Forever     衣带渐宽终不悔，   Fornever
  Forever     为伊消得人憔悴。   Fornever

           I love pig!
                Let the Dream to be Realities.
                          Belive it and Touch it!

※ 来源:．深大荔园晨风站 bbs.szu.edu.cn．[FROM: 202.192.140.101]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店