Hintergrundbild ermitteln

[p3ps1]

Es wird ganz oft beschrieben wie ich das Hintergrundbild meines Desktops ändere.
Aber wie ermittle ich das aktuelle Bild? Das müsste ich ja irgendwie aus der Registry auslesen können. Weiss da wer eine Funktion für? Also z.B.

Delphi-Quellcode:

 bild:TPicture 
         ...
        bild:=getaktuellesbild;

[edit=Luckie]Delphi-Tags korrigiert. Mfg, Luckie[/edit]

[Luckie]

Such dir den Wert in der Registry und dann kuckt dir mal Tregistry in der Hilfe an. ;)

[p3ps1]

Ich hab ja schon versucht das in der Registry zu finden.
So weit ich weiss ist das ja unter HKEY_CURRENT_USER/Control_Panel/Desktop
aber da hab ich mehrere gefunden. Irgendwie nur nicht das Rcihtige :gruebel:

[MathiasSimmack]

Zitat:

Zitat von p3ps1

So weit ich weiss ist das ja unter HKEY_CURRENT_USER/Control_Panel/Desktop
aber da hab ich mehrere gefunden. Irgendwie nur nicht das Rcihtige :gruebel:

Richtig. Bei mir gibt´s da einen Eintrag, der auch "WallPaper" heißt.

[p3ps1]

ich blick bei der registry irgendwie überhaupt nicht durch
mit welchem befehl komm ich denn jetzt zum beispiel an das hintegrundbild?
HKEY_CURRENT_USER/Control_Panel/Desktop/wallpaper

[Luckie]

Kuck dir aml in der Hilfe TRegistry an und ganz besonders die Methode TRegistry.ReadString.

[Helpliner]

Also ich würde das folgendermaßen machen (angelehnt an das Registry Tutorial auf Delphi-Sorce.de.

Delphi-Quellcode:

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var regist: TRegistry;
begin
  regist:=TRegistry.Create;
  regist.RootKey:=HKEY_CURRENT_USER;
  try
    regist.OpenKey('Control Panel\Desktop\', false);
    Edit1.Text := regist.ReadString('Wallpaper');
  except
    Edit1.Text := ('Fehler beim lesen');
  end;
  regist.free;
end;

Das Problem bei der Sache ist das als Wert immer (ausser wenn du kein Hintergrundbild definiert hast) der Wert:

C:\Dokumente und Einstellungen\<Benutzername>\Lokale Einstellungen\Anwendungsdaten\Microsoft\Wallpaper1 .bmp

herauskommen wird, da sich Windows das Hintergrundbild das du auswählst immer dorthin kopiert.

[p3ps1]

Das war genau das was ich gesucht habe!
Vielen Dank :)

[Luckie]

Besser ist aber das:

Delphi-Quellcode:

uses
  Registry;

function GetWallpaper: String;
var
  s: String;
  regist: TRegistry;
begin
  s := '';
  // wir wollen nur lesen
  regist:=TRegistry.Create(KEY_READ);
  try
    regist.RootKey:=HKEY_CURRENT_USER;
    // nur weitermachen, wenn Schlüssel geöffnet werden konnte
    // except hier unnötig
    if regist.OpenKey('Control Panel\Desktop\', false) then
      s := regist.ReadString('WallPaper');
  finally  // regist Objekt auf alle Fälle wieder freigeben
    FreeAndNil(regist);
  end;
  result := s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := GetWallpaper();
end;

Das except ist unnötig, OpenKey liefert True zurück, wenn es geklappt hat. Und in Helpliners Code wird bei einem Fehler das TRegistry Objekt nicht wieder freigegeben.

[fkerber]

HI!

Das mit dem Pfad kann ich leider nicht bestätigen. Ich habe z.B. momentan das Hintergrundbild "Grüne Idylle". Das Bild Wallpaper1.bmp ist aber ein ganz anderes.

Ciao fkerber