用delphi设置桌面背景

Question

我在网上看的用Reg: Tregistry；的方法进行，但是我先在image1插入一个图片，这时怎么设成背景了？procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  Reg: Tregistry; {Tregistry 对象在Registry 单元中声明，需用Uses令引用Registry单元}
begin
  if (Filelistbox1.FileName = '') then
    Messagedlg('请先选择一幅位图', mtInformation, [mbOK], 0)
  else
    begin
      Reg := Tregistry.Create; {创建Tregistry对象的实例}
      Reg.Rootkey := Hkey_Current_User; {设置根键名称}
      // 打开Control Panel\Desktop 路径对应的主键
      Reg.OpenKey('Control Panel\Desktop', False);
      Reg.WriteString('TileWallPaper', '0');
      // 向TileWallpaper 和Wallpaper串覆盖写入新值
      Reg.WriteString('Wallpaper', FileListBox1.FileName);
      Systemparametersinfo(SPI_SETDESKWallpaper, 0, nil, SPIF_SendChange); {向Windows发送消息，通知Windows更换壁纸}
      Reg.CloseKey; {将更改内容写入注册表并关闭}
      Reg.Free; {释放对象}
    end;
end;怎样将image中的picture弄成和filelistbox1.filename一样的意思呢？希望大虾们点拨下，在线等

Answer 1

http://download.csdn.net/source/722493

Answer 2

你只要将你那个FileListBox1.FileName换成你Image图片的文件名就行了。

Answer 3

是用什么得文件名，昨天是这个不能达到。 我是已经将picture放如image1了。  我对这个还不是很熟悉，望指教

Answer 4

刚看了一下，18人个回复，只有3个人评价恢复并不会还积分，还得评价，你没看到系统怎样提示的？
下载后评价，轻松获取积分 <> 下载后回复，轻松获取积分