ich bin baff!! super leistung holger, wie du nun den cache ausliest, als teil eines records, das finde ich echt genial!!!
plus dazu noch einen völlig neue methode mal so reingezaubert, echt toll recherchiert und bestens umgesetzt.
ich bin mehr als begeistert!!!
habe es noch nicht versucht selbst zu kompilieren, deine .exe zeigts mir ja bestens an =)
wobei beim lesen mir eine sache auffällt.
Delphi-Quellcode:
procedure TForm1.ButtonRegClick(Sender: TObject);
var
s : string;
begin
s := GetWallpaperName;
if Pos('',s) > 0 then // <<<--- gehört da nicht TranscodedWallpaper noch rein? also
if (Pos('transcodedwallpaper',LowerCase(s)) > 0) then
Edit1.Text := GetWallpaperCache
else
Edit1.Text := s;
end;
edit
also um das was ich wollte zu erreichen muss diese änderung rein.
sonst kommt als Registry ergebnis
...\AppData\Roaming\Microsoft\Windows\Themes\TranscodedWallpaper
mit änderung erhalte ich wieder das gewünschte, IDesktopWallpaper funktioniert bestens, sowie als auch.