Newsgroup: it.comp.os.win.win9x
Titolo: [INFO] Non mi compare piu' la preview dell'immagine nell'area dettagli

Fino a qualche tempo fa, quando in esplora risorse selezionavo un file
grafico, alla sinistra, nell'area dettagli, oltre ai dati del file
veniva visualizzata l'immagine in piccolo (una preview). Ora mi e'
sparita questa funzione (probabilmente ho disinstallato qualche
programma scaduto). Come faccio a rivedere tali anteprime?
Mailto: 
gst...@altasvista.net
If you reply via E-Mail change "altasvista" with "altavista"
Per evitare di trafficare ulteriormente il NG con domande 
già fatte potete rispondermi via e-mail sostituendo "altasvista"
con "altavista". 

 programma scaduto). Come faccio a rivedere tali anteprime?
Ho creato un piccolo script .vbs allo scopo (modificando quello presente
in \windows\samples\wsh).
Copia il testo qui sotto in Blocco Note, salva il file come preview.vbs,
facci sopra doppio clic e le anteprime dovrebbero essere di nuovo
visualizzate.
'Copia da qui:
'############################################################
L_Welcome_MsgBox_Message_Text   = "Questo script ripristina l'anteprima
in una finestra di Esplora risorse per i formati piu' comuni di
immagini."
L_Welcome_MsgBox_Title_Text     = "Anteprima immagini"
Call Welcome()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Ripristina l'anteprima per le seguenti estensioni: .art,
.bmp, .dib, .gif, .jfif, .jpe, .jpeg, .jpg, .png, .wmf"
'.art
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.art\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.art\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.bmp
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.bmp\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.bmp\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.dib
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.dib\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.dib\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.gif
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.gif\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.gif\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jfif
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jfif\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jfif\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpe
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpe\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpe\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpeg
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpeg\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpeg\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpg
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpg\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpg\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.png
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.png\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.png\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.wmf
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.wmf\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.wmf\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
' * Introduzione
Sub Welcome()
    Dim intDoIt
    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _   
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
'############################################################
'Fin qui
--
Cordiali saluti
Il Webmaster di
http://www.sifor.it

 Ho creato un piccolo script .vbs allo scopo 
Attenzione: potrebbero esserci problemi con le andate a capo: e'
consigliabile usare quest'altro:
'Copia da qui:
'############################################################
L_Welcome_MsgBox_Message_Text   = "Questo script ripristina l'anteprima
in una finestra di Esplora risorse per i formati piu' comuni di
immagini."
L_Welcome_MsgBox_Title_Text     = "Anteprima immagini"
Call Welcome()
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Popup "Ripristina l'anteprima per le seguenti estensioni: .art,
_
.bmp, .dib, .gif, .jfif, .jpe, .jpeg, .jpg, .png, .wmf"
'.art
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.art\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.art\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.bmp
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.bmp\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.bmp\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.dib
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.dib\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.dib\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.gif
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.gif\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.gif\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jfif
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jfif\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jfif\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpe
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpe\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpe\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpeg
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpeg\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpeg\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.jpg
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.jpg\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.jpg\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.png
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.png\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.png\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
'.wmf
WSHShell.RegWrite "HKEY_CLASSES_ROOT\.wmf\ShellEx\", "Second level key"
WSHShell.RegWrite
"HKEY_CLASSES_ROOT\.wmf\ShellEx\{BB2E617C-0920-11d1-9A0B-00C04FC2D6C1}\",
_
"{7376D660-C583-11d0-A3A5-00C04FD706EC}"
' * Introduzione
Sub Welcome()
    Dim intDoIt
    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _   
                      vbOKCancel + vbInformation,       _
                      L_Welcome_MsgBox_Title_Text )
    If intDoIt = vbCancel Then
        WScript.Quit
    End If
End Sub
'############################################################
'Fin qui
--
ciao
gelty
http://www.sifor.it

Grazie, ora che ho capito il sistema sto facendo un file .REG per tutti
i formati riconosciuti da ACDSee.
Ti ringrazio nuovamente.
Ciao.


> percorso HKEY_CLASSES_ROOT\Database\Content Type\Image/bmp (ad esempio)
si, questo e' appunto quello che tu hai messo nello script e che io ho
diligentemente eseguito per tutti i tipi di files. Solo che l'anteprima
non si vede per tutti ma solo per alcuni. Ho notato che la differenza
sta nel percorso HKEY:CLASSES_ROOT\MIME\Database\Content Type\Image/ext
(dove ext e' l'estensione del file): le immagini di cui si vede
l'anteprima hanno una sottochiave Bits con un valore (diverso a seconda
del tipo di file). Quindi, sempre che l'anteprima sia attivabile per
questi tipi di file, bisogna introdurre un valore specifico.
Cmq grazie per il tuo aiuto.
Ciao.
