盒子论坛 v2.1

最近想通过代码来修改桌面壁纸，可是代码在WinNT上无效，请各位高手请教！
附代码如下：
var
  Reg: TRegistry;
begin
    //创建Tregistry对象的实例
    Reg := Tregistry.Create;
    //设置根键名称
    Reg.Rootkey := Hkey_Current_User;
    //打开Control Panel\Desktop 路径对应的主键
    Reg.OpenKey('Control Panel\Desktop', False);
    Reg.WriteString('TileWallPaper', '0');
    //将壁纸拷贝到系统目录
    CopyFile(PChar(Edit1.Text),PChar('H:\WINDOWS\Naola.bmp'),False);
    Reg.WriteString('Wallpaper', 'H:\WINDOWS\wallpaper.bmp');
    //将更改内容写入注册表并关闭
    Reg.CloseKey;
    Reg.Free; //释放对象
    //向Windows发送消息，通知Windows更换壁纸
    SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('H:\WINDOWS\wallpaper.bmp'), SPIF_SENDWININICHANGE);
  end;
end;
----------------------------------------------
我们的技术来自于大家的齐心合力！不要吝啬你的知识！

信息

登陆以后才能回复