Como descobrir o caminho para a imagem da área de trabalho atual, para Windows 8

Tendo atualizado recentemente para o Windows 8, meu script para recuperar a imagem atual do papel de parede da área de trabalho foi quebrado.

No Windows 7, como descobrir o caminho para a imagem da área de trabalho atual? , isso funciona muito bem. No entanto, essa chave do registro agora sempre contém

C:\Windows\web\wallpaper\Windows\img0.jpg

Qual é a nova chave do Registro usada no Windows 8?

Eu encontrei duas soluções possíveis.

Primeiramente, essa chave contém o que parece um caminho codificado em Base64:

HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Wallpapers\Images\ID2

E existe o "arquivo de propriedades do tema personalizado", que também contém uma seção "[SlideShow]" que se parece com Base64:

C:\Users\Scott\AppData\Local\Microsoft\Windows\Themes\Custom.theme

As duas chaves do registro abaixo armazenam o caminho original da imagem de papel de parede atual:

HKEY_CURRENT_USER\Control Panel\Desktop\TranscodedImageCache
HKEY_CURRENT_USER\Control Panel\Desktop\TranscodedImageCache_000

Eles estão no formato Unicode, ao decodificar isso, um terá o caminho completo para a imagem atual do papel de parede.

1. Vá para o comando Executar do Windows (WinLogo + R)
2. Digite:% AppData%
3. Na pasta 'Roaming', vá para 'Microsoft', 'Windwows', depois 'Temas' e, por fim, 'CachedFiles'
4. Copie o arquivo de papel de parede.

Verifique o valor HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperREG_SZ (string). Isso mostrará o caminho para o TranscodedWallpaper.jpg atualmente em uso.

Para o Windows 8 ou posterior, você pode iniciar este arquivo vbs:

https://gist.github.com/raveren/ab475336cc69879a378b

Ou use este script de autohotkey:

http://www.autohotkey.com/board/topic/111813-open-current-wallpaper-under-mouse-in-windows-8/

Ambos criados por mim.

No Windows 8 e 8.1 (e, supostamente, 10), se você definiu seu papel de parede no Windows Picture Viewer (abrindo uma imagem no Viewer e clicando em "Definir como papel de parede da área de trabalho" no menu de contexto), sua localização será

%AppData%\Roaming\Microsoft\Windows Photo Viewer\Windows Photo Viewer Wallpaper.jpg

Na minha situação, tenho uma enorme pasta de imagens que meu papel de parede percorre. Fico entediado com alguns depois de um tempo e quero excluí-los ou, às vezes, fico imaginando qual é o nome da imagem porque ela pode ter a descrição da imagem.

Criei 2 scripts com base nos comentários acima - um para obter o caminho da imagem atual e outro para excluí-lo. Só testei isso no Windows 10.

Obter o caminho da imagem (getwallpaper.ps1)

$bytes=(New-Object -ComObject WScript.Shell).RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\TranscodedImageCache")
$wallpaperpath=[System.Text.Encoding]::Unicode.GetString($bytes[24..($bytes.length-1)])
$wallpaperpath=$wallpaperpath.substring(0, $wallpaperpath.IndexOf("jpg", 0, $wallpaperpath.Length)+3)
write-output $wallpaperpath
Write-Host -NoNewLine 'Press any key to continue...';
$null = $Host.UI.RawUI.ReadKey('NoEcho,IncludeKeyDown');

Excluir a imagem (deletewallpaper.ps1)

$bytes=(New-Object -ComObject WScript.Shell).RegRead("HKEY_CURRENT_USER\Control Panel\Desktop\TranscodedImageCache")
$wallpaperpath=[System.Text.Encoding]::Unicode.GetString($bytes[24..($bytes.length-1)])
$wallpaperpath=$wallpaperpath.substring(0, $wallpaperpath.IndexOf("jpg", 0, $wallpaperpath.Length)+3)
write-output $wallpaperpath
Write-Host -NoNewLine 'Delete the file (y=yes)?'
$KeyOption = 'Y','N'
while ($KeyOption -notcontains $KeyPress.Character) {
 $KeyPress = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
 if($KeyPress.Character -eq 'y') { Remove-Item $wallpaperpath }
}
Write-Host
[Environment]::Exit(0)

1. Vá para C:\Users\<USERNAME>\AppData\Roaming\Microsoft\Windows\Themes.
2. Crie uma cópia de TranscodedWallpaper
3. Renomeie a cópia para <NAME>.JPG

Testado no Windows 10