With great power comes great responsibility.

agosto 19, 2009

"Mostrar arquivos ocultos" --> não funciona

A dica abaixo será útil se algum dia você tentar "Mostrar arquivos ocultos" e não conseguir. Siga os passos abaixo:

1) execute o regedit.exe (iniciar > executar > regedit.exe)

2) procure a chave de registro:

  • HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL

3) verifique o valor de registro CheckedValue. Ele deve ser do TIPO REG_DWORD. Se for, siga para o passo 4, senão vá para o passo 5.

4) dê um duplo clique ou enter para editá-lo e em "Dados do valor" coloque o número 1. agora ok e feche o regedit.

5) se o TIPO do valor CheckedValue for REG_SZ vc terá que apagá-lo (delete nele e confirme). agora clique com o botão direito em cima da chave SHOWALL > Novo > Valor DWORD. escreva CheckedValue no campo nome. dê um clique duplo ou enter nele e altere seu valor de dados para 1. agora ok e feche o regedit.

Seu novo valor de registro deve ficar assim:

Nome - Tipo - Dados
CheckedValue REG_DWORD 0x00000001(1)

Pronto, isso deve funcionar!

agosto 14, 2009

Opções da Pasta... (ausente)

A receita abaixo é útil quando no Windows Explorer, no menu Ferramentas... você não dispõe do comando:
  • Opções da Pasta...
É controlada através da diretiva: NoFolderOptions:dword

Abra o Bloco de Notas. Copie e cole o texto abaixo e salve como:
  • folderoptions.reg
Execute o "folderoptions.reg"

Necessário reiniciar o Windows.

-------------------------------------
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\
Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoFolderOptions"=dword:0000000

[HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Restrictions]
"NoBrowserOptions"=dword:00000000

-------------------------------------

Edição de REGISTRO: ativar ou desativar

Abra o Bloco de Notas e copie e cole o texto abaixo.
Depois salve com nome: regtools.vbs

---------------------------------
'Enable/Disable Registry Editing tools
'© Doug Knox - rev 12/06/99

Option Explicit

'Declare variables
Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype

Set WSHShell = WScript.CreateObject("WScript.
Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\"
p = p & "DisableRegistryTools"
itemtype = "REG_DWORD"
mustboot = "Log off and back on, or restart your pc to" & vbCR & "effect the changes"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "Registry Editing Tools are now "

'This section tries to read the registry key value. If not present an
'error is generated. Normal error return should be 0 if value is
'present
t = "Confirmation"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
On Error Goto 0
errnum = Err.Number

if errnum <> 0 then
'Create the registry key value for DisableRegistryTools with value 0
WSHShell.RegWrite p, 0, itemtype
End If

'If the key is present, or was created, it is toggled
'Confirmations can be disabled by commenting out
'the two MyBox lines below

If n = 0 Then
n = 1
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR & mustboot, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell.RegWrite p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR & mustboot, 4096, t)
End If

---------------------------------

fonte URL