为什么用 SystemParametersInfo 设置墙纸只会居中显示,平铺和拉伸都不行?

Question

uses
  Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TregIniFile;
  res: boolean;
begin
  if OpenPictureDialog1.Execute then
  begin
    Ini := TRegIniFile.Create('Control Panel');
    Ini.WriteString('desktop', 'Wallpaper', OpenPictureDialog1.FileName);
    Ini.WriteString('desktop', 'TileWallpaper', '1');  Ini.Free;
    res := SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);
  end;
end;

Answer 1

uses
  Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TregIniFile;
  res: boolean;
begin
  if OpenPictureDialog1.Execute then
  begin
    Ini := TRegIniFile.Create('Control Panel');
    Ini.WriteString('desktop', 'Wallpaper', OpenPictureDialog1.FileName);
    Ini.WriteString('desktop', 'TileWallpaper', '1');  Ini.Free;
    res := SystemParametersInfo(SPI_SETDESKWALLPAPER,0,nil,SPIF_SENDWININICHANGE);
  end;
end;