JPG als Desktop-Wallpaper?

[Dannyboy]

Hey yo fellaz,
ich weiss, wir hatten dieses Thema schon 100000000 Mal. Ich würde gern den Desktop-Hintergrund
programmtechnisch ändern, wobei die Methode auch JPGs annehmen können soll. SystemParametersinfo
funktioniert nur mit BMPs. Ich könnte natürlich jedes JPG im Programm zu einem Bitmap konvertieren
und dann die Methode aufrufen, aber gibt es nicht einen praktischeren Weg :gruebel:

Thanx a lot, boyz.

DANNYOBOY

[sakura]

Das hängt von der Windows-Version ab. Imho können nur XP und 2003 JPGs als einfache Hintergrundbilder anzeigen, auf älteren Systemen muss der grausame Active Desktop dafür aktiviert werden :?

...:cat:...

[Alexander]

Ich meine das funktioniert so:

Delphi-Quellcode:

function ChangeWallpaper_AD(aFile: String): Boolean;
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  hObj: IUnknown;
  ADesktop: IActiveDesktop;
  str: string;
  wstr: PWideChar;
begin
  hObj     := CreateComObject(CLSID_ActiveDesktop);
  ADesktop := hObj as IActiveDesktop;
  wstr := AllocMem(MAX_PATH);
  try
    StringToWideChar(aFile, wstr, MAX_PATH);
    ADesktop.SetWallpaper(wstr, 0);
    ADesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    FreeMem(wstr);
  end;
end;

Nur bin ich mir gerade nicht sicher, ob das JPEG's unterstützt, glaube aber schon.

[Dannyboy]

Yo,
ich habe XP Prof drauf.
@Alexander:
Geht das nicht ohne ActiveDesktop :gruebel:

[gothic_mike]

Zitat:

Zitat von Dannyboy

Yo,
ich habe XP Prof drauf.
@Alexander:
Geht das nicht ohne ActiveDesktop :gruebel:

Also, die meisten Tools (IrfanView, ACDView...), die das Hintergrundbild änder, konvertieren die JPG's, PNG's etc. erst in ein Bitmap, meist im Windows-Ordner, befor sie es alls Wallpaper setzen...
Wird imho kein Weg dran vorbei führen.

Zwecks Konvertierung von Bildern kannst dir ja mal die ImageFileLib von dieser Seite angucken: http://logicnet.dk/lib ...

[Alexander]

Ich weiß jetzt nicht in wie fern, das mit JPEG's klappt, aber ich meine nicht:

Delphi-Quellcode:

function ChangeWallpaper(aFile: String): Boolean;
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer(afile),
    SPIF_SENDWININICHANGE);
end;

Aber was hast du gegen den Active Desktop, ich habe ihn bei XP einfach angelassen... Sonst muss du wirklich das Bild als platzverschwendenes BMP konvertieren...

[Thorben86]

Der Active Desctop schmiert aber ab und zu ab, das is ziemlich beschissen.

[Alexander]

Ist mir noch nicht passiert ;-)

[supermuckl]

mir isser auch schon abgekackt ^^

[sakura]

@supermuckl:
:warn:
Überdenke bitte Deine Wortwahl. In letzter Zeit widerspricht diese immer öfters den Regeln des angenehmen Umgangs mit- und untereinander.

...:cat:...

[Robert_G]

Zitat:

Zitat von Alexander

...Sonst muss du wirklich das Bild als platzverschwendenes BMP konvertieren...

Rate mal wieviel RAM ein geladenes JPEG verbraucht? -> Genau soviel wie ein BitMap. (Ist ja beides ein Bildchen mit X*Y Pixeln in Z Bit Farbtiefe ;) )
Ich gehe auch den Weg über BMP, da ich zu Hause noch Win2k habe (wenn ich mich von zu Hause in der Firma anmelde würde ja sonst der Active Desktop aktiviert werden ;) )

[Alexander]

Ja, das ist schon klar, ich meinte jetzt auch eher auf der Festplatte...
Aber das ist ja bei den heutigen Festplatte nicht mehr so das Problem...

[S2B]

Also, in meinem Windows XP werden die Hintergrundbilder von JPEG in Bitmap konvertiert und im Ordner X:\Dokumente und Einstellungen\User\Lokale Einstellungen\Anwendungsdateien\Microsoft gespeichert! :zwinker:

[Dannyboy]

Also Fellaz,
ich habe nun die in Delphi involvierte JPEG-Klasse verwendet und habe
die JPEG-Datei geladen und speichere sie dann als Bitmap ab, um diese
dann mittels Funktion SystemParametersInfo als Wallpaper
anzunehmen. Das Wallpaper wird anstandslos übernommen und die Funktion liefert den Wert <true> zurück.

Sobald man den Desktop aktualisiert, wird das Wallpaper scheinbar vom Desktop gelöscht und der Desktop wird schwarz. Bei einem evtl. Neustart ist das Wallpaper ebenfalls nicht mehr vorhanden. Hilfe. :wall: :wall:
Was nun??? :gruebel:

[gothic_mike]

Zitat:

Zitat von Dannyboy

Also Fellaz,
ich habe nun die in Delphi involvierte JPEG-Klasse verwendet und habe
die JPEG-Datei geladen und speichere sie dann als Bitmap ab, um diese
dann mittels Funktion SystemParametersInfo als Wallpaper
anzunehmen. Das Wallpaper wird anstandslos übernommen und die Funktion liefert den Wert <true> zurück.

Sobald man den Desktop aktualisiert, wird das Wallpaper scheinbar vom Desktop gelöscht und der Desktop wird schwarz. Bei einem evtl. Neustart ist das Wallpaper ebenfalls nicht mehr vorhanden. Hilfe. :wall: :wall:
Was nun??? :gruebel:

probiers mal damit:

Code:

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;

FileName:
Path und Dateiname des Wallpapers im BMP-Format

Style:
0 - Zentriert
1 - Nebeneinander
2 - Gestreckt