Hintergrundbild

[Moyyer]

hallo alle zusammen.
ich habe hier eine funktion, die ich mir aus dem netz geladen habe, mit der ich das hintergrundbild ändern kann. aber sie funktioniert nicht.
Kann mir jemand helfen? oder weiß jemand wie man ein programm schreibt,was HTML-Dateinen als hintergrundbild anzeigen lässt.

procedure SetBackground(const AFilename: String);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER,
0,
pChar(AFilename),
SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE);
End;


mfg Moyyer

[Christian Seehase]

Moin Moyyer,

hast Du denn auch aktiviert, dass Du Web Inhalte auf dem Desktop darstellen lassen willst?

BTW: Welches Betriebssystem?

[Moyyer]

natürlich, ich habe winxp

[Christian Seehase]

Moin Moyyer,

also wenn ich mal im PSDK nachschlage:
Es wird eine Bitmap erwartet.

Wie man ansonsten eine HTML Seite auf dem Desktop darstellen kann weiss ich so leider auch nicht.

[flomei]

Mal nen kleinen Tipp am Rande. Für Code gibt es Tags!
Und zwar: [.Code] [/.Code] und für Delphi-Code [.Delphi] und [/.Delphi] (natürlich ohne die Punkte). Damit kann man so etwas anschaulicher machen, da die Foren-Software das schön bunt macht usw.
Ist zwar hat am Anfang aber auf Dauer ist das doch besser.

MfG Florian

[Moyyer]

trutzdem danke

[Duffy]

Hallo Moyyer

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;

Ist ein alter Code, und ich habe ihn nicht getestet. Sollte aber funktionieren.
bye

[Moyyer]

es funktioniert nur mit BMP-Dateinen nicht mit HTML oder JPG.
Kann man nicht irgendwie den Aktiv Desktop ansteuern?