Desktophintergrund

[p3ps1]

Ich würd gern mal wissen, wie ich den Desktophintergrund unter Windows ändern kann

[Alexander]

Hast du hier, insbesondere in der Code-Lib, schon mal danach gesucht?
Ich bin sicher du findest etwas, und wenn nicht, dann schau hier

[Matze]

Hi!

Das hat Duffi mal gepostet:

Delphi-Quellcode:

//-----------------------------------------------------------------------// 

//#######################################################################// 
//## Procedure ChangeWallpaper:                                        ##// 
//#######################################################################// 
//##      Datum: Änderung:                                             ##// 
//##      ====== =========                                             ##// 
//##  10.07.1998 Initial Release                                       ##// 
//#######################################################################// 
procedure ChangeWallpaper(BmpName: string; Tile: Boolean); 
var 
  Registry: TRegIniFile; 
begin 
  Registry := TRegIniFile.Create('Control Panel'); 
  Registry.WriteString('Desktop', 'Wallpaper', BmpName); 
  if Tile then 
  begin 
    Registry.WriteString('Desktop', 'TileWallpaper', '1'); 
  end 
  else 
  begin 
    Registry.WriteString ('Desktop', 'TileWallpaper', '0'); 
  end; 
  Registry.Free; 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); 
end;

Es geht mit Bitmaps.


Achja, die DP hat eine geniale Suchfunktion, mit [dp]Hintergrundbild ändern[/dp] habe ich das gefunden.


Nachtrag: Alex war wohl schneller. ;)

[MathiasSimmack]

Darf ich offen sein, Matze: Ich vermisse so ein kleines bisschen try, finally und end. Und generell finde ich den von Alexander geposteten Ansatz etwas besser, weil du dabei eben nicht selbst auf die Registry zugreifen musst. Abgesehen davon wird der Active Desktop berücksichtigt, sofern er aktiv ist.

In der Freeware- oder OpenSource-Sparte der DP müsste übrigens ein Hintergrundbild-Änderungsprogramm zu finden sein, dass IMHO beide Ansätze berücksichtigt.

[Matze]

@Mathias: Ich hab ja nur mal in der DP bissle gesucht und bin halt auf Duffis Post gestoßen. Durchgelesen hab ich mir den nicht richtig. ;)

[p3ps1]

Ich hab das von duffi mal probiert aber irgendwie kam dann der Fehler

Unit_desktop.pas(27): Undefinierter Bezeichner: 'TRegIniFile'

Was nun? :?:

[Stanlay Hanks]

Hi. Geh mal mit dem Cursor auf "TRegIniFile" und drück F1 :wink:
Dann sagt dir die Online Hilfe, dass du die Unit "Registry" einbinden musst, damit es funktioniert. :wink:

Man liest sich, Stanlay :hi:

[p3ps1]

auf die idee mit f1 bin ich auch gekommen aber das andere hab ich wohl überlesen -- Danke

[p3ps1]

aber mal 'ne ganz dumme Frage: Wie geht das?
Ist das irgendeine spezielle vorgefertigte unit, oder muss ich die erstellen?

[fkerber]

Hi!

Einfach bei Uses "registry" (ohne die Anführungszeichen") rein schreiben

Ciao fkerber