关于换桌面的问题

Question

请告诉我怎样在delphi中调换桌面图片，并且即时刷新
怎样在程序中实现将自身exe文件放到windows的启动项里注：程序一经调试通过，立即给分！！！！！！

Answer 1

1:
  Reg:=TRegistry.Create;
  Reg.Rootkey:= HKEY_CURRENT_USER;
  Reg.OpenKey('Control Panel\Desktop',False);
  Case n of
    0:begin//居中
      i:=0;
      j:=0;
      end;
    1:begin//平铺
      i:=1;
      j:=3;
      end;
    2:begin//拉伸
      i:=0;
      j:=2;
      end;
  end;
  Reg.WriteString('TileWallPaper',inttostr(i));
  Reg.WriteString('WallPaperStyle',inttostr(j));
  Reg.WriteString('Wallpaper','C:\Test.Bmp');
  Reg.CloseKey;
  finally
    Reg.Free;
  end;
  SystemParametersinfo(SPI_SETDESKWALLPAPER,0,nil,3);2：
  Reg:=TRegistry.Create;
  Reg.Rootkey:= HKEY_CURRENT_USER;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
  Reg.WriteString('Test','C:\Test.exe');

Answer 2

2：
  Reg:=TRegistry.Create;
  Reg.Rootkey:= HKEY_CURRENT_USER;
  //要适用于win98应该为HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False);
  Reg.WriteString('Test','C:\Test.exe');
上面的代码不适用于Win98

Answer 3

用修改注册表的方法，下面程序由于不同系统的注册表存放的路径可能有所不同，所以你要对路径略作修改；启动加载
procedure TForm1.Button1Click(Sender: TObject);
var
  RegF:TRegistry;
begin
   RegF:=TRegistry.create;
   try
   RegF.RootKey := HKEY_LOCAL_MACHINE;
   if RegF.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',TRUE) then
        begin
                RegF.WriteString('cj','E:\netsend.exe');  //创建、更换数值，E:\netsend.exe改成你的.exe
                RegF.CloseKey;
        end;
    finally
    RegF.Free;
    inherited;
    end;
end;调换桌面图片与上相同，只有找到路径，RegF.WriteString('原壁纸名','新壁纸名'); 但要重启SYSTEM后才能换

Answer 4

不适用吗？那你知道HKEY_CURRENT_USER和HKEY_LOCAL_MACHINE的区别吗？HKEY_CURRENT_USER 定义的是当前用户！
HKEY_LOCAL_MACHINE 定义的是本地计算机！
看起来无效只是登录方式的问题！比如登录时按取消，ESC，或换成其它用户登录！而ＮＴ限制用户必须使用某一合法用户名登录！所以产生你认为的错误结果！修改墙纸也可以不重启，用ＡＰＩ　SystemParametersinfo告诉系统立即更改！