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;
Hast recht, ist leider ein Flüchtigkeitsfehler, da ich parallel nach IDesktopWallpaper am Suchen war
