Wallpapr : zentriet nebeneinander oder gestrckt ändern

[gothic_mike]

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:

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