Wie kann man die eigenschaft das wallpapers ändern? (gestreckt,nebeneinander, zentriert)

Moin,

Zitat von NikoMitDaMacht:

Wie kann man die eigenschaft das wallpapers ändern? (gestreckt,nebeneinander, zentriert)

hoffe ich habe das jetzt richtig verstanden, versuch's doch mal mit folgender function:

zusammenfalten · markieren

Delphi-Quellcode:

Function SetWallpaper(FileName: String; Style: Integer): Boolean;
Var
  reg: TRegistry;
  wp: Array[0..$FF] Of Char;
Begin
  reg := TRegistry.Create;
  Try
    reg.RootKey := HKEY_CURRENT_USER;
    If reg.OpenKey('\Control Panel\desktop\', True) Then
    Begin
      If (Style = 1) Then
        reg.WriteString('TileWallpaper', '1')
      Else
        reg.WriteString('TileWallpaper', '0');

      reg.WriteString('WallpaperStyle', IntToStr(Style));
    End;
  Finally
    reg.Free;
  End;

  StrPCopy(wp, FileName);
  Result := SystemParametersInfo(spi_SetDeskWallpaper, 0, @wp, spif_UpdateIniFile);
End;

Style:
0 - Zentriert
1 - Nebeneinander
2 - Gestreckt