Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
 |
у меня такое было , вылечилось просто: 15.02.08 03:14 Число просмотров: 1383
Автор: + <Mikhail> Статус: Elderman Отредактировано 15.02.08 03:16 Количество правок: 1
|
у меня такое было , вылечилось просто:
в регистре удали Bags Keys в
HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\
|
<operating systems>
|
Народ, подскажие pls по проблеме с Вистой 08.02.08 16:37
Автор: HandleX <Александр М.> Статус: The Elderman Отредактировано 13.02.08 17:25 Количество правок: 1
|
У знакомого установлена эта ОС, при просмотре Проводником в папках невозможно выбрать несколько объектов как обычно — при помощи Shift'а или выделением мышью. Утверждает, что раньше работало. Кнопка Shift работает.
Как это лечится?
Заранее всем огромное спасибо.
|
 |
Всем спасибо, помог скрипт по ссылке Cyril, оно кста удаляет те ключи, о которых говорил +. На всякий случай оставлю скрипт в теле сообщения для потомков. 15.02.08 13:59
Автор: HandleX <Александр М.> Статус: The Elderman Отредактировано 15.02.08 14:00 Количество правок: 1
|
Option Explicit
const HKCU = &H80000001
const FWF_SINGLESEL = &H00000040
dim objReg
msgbox "Close all Explorer windows before continuing."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
FixBags
FixDefaults
msgbox "Done! Logoff and Logon before opening any Explorer windows."
'===================================================================================================
Sub FixBags
const BagsPath = "Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\Bags"
dim iFFlags
dim strBag, strShellPath, strFolderID, strKeyPath
dim arrBags, arrFolderIDs
objReg.EnumKey HKCU, BagsPath, arrBags
For Each strBag in arrBags
strShellPath = BagsPath & "\" & strBag & "\Shell"
If RegKeyExists(strShellPath) Then
If objReg.EnumKey(HKCU, strShellPath, arrFolderIDs) = 0 Then
If Not IsNull(arrFolderIDs) Then
For each strFolderID in arrFolderIDs
strKeyPath = strShellPath & "\" & strFolderID
If objReg.GetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) = 0 Then
If (iFFlags AND FWF_SINGLESEL) <> 0 Then
iFFlags = (iFFlags AND (NOT(FWF_SINGLESEL)))
If objReg.SetDWORDValue(HKCU, strKeyPath, "FFlags", iFFlags) <> 0 Then
Msgbox "SetDWORDValue Failed"
End If
End If
End If
Next
End If
End If
End If
Next
End Sub
'===================================================================================================
'===================================================================================================
Sub FixDefaults
const StreamsPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults"
dim bytTemp, bytFFlags
dim iByteIndex
dim strFolderID, strViewSettings, strSearch
dim arrFolderIDs, arrRegTypes, arrViewSettings
If (objReg.EnumValues(HKCU, StreamsPath, arrFolderIDs, arrRegTypes) <> 0) Or IsNull(arrFolderIDs) Then
Exit Sub
End If
For Each strFolderID in arrFolderIDs
If objReg.GetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) = 0 Then
'--- Convert Byte array to string to facilitate searching ---
strViewSettings = ""
For each bytTemp in arrViewSettings
strViewSettings = strViewSettings & chr(bytTemp)
Next
strSearch = "F" & chr(0) & "F" & chr(0) & "l" & chr(0) & "a" & chr(0) & "g" & chr(0) & "s"
iByteIndex = instr(strViewSettings, strSearch) + 17
bytFFlags = arrViewSettings(iByteIndex)
If (bytFFlags AND FWF_SINGLESEL) <> 0 Then
arrViewSettings(iByteIndex) = (bytFFlags AND NOT(FWF_SINGLESEL))
If objReg.SetBinaryValue(HKCU, StreamsPath, strFolderID, arrViewSettings) <> 0 Then
msgbox "SetBinaryValue Failed"
End If
End If
End If
Next
End Sub
'===================================================================================================
Function RegKeyExists(sRegKey)
dim aValueNames, aValueTypes
sRegKey = Trim(sRegKey)
If objReg.EnumValues(HKCU, sRegKey, aValueNames, aValueTypes) = 0 Then
RegKeyExists = True
Else
RegKeyExists = False
End If
End Function
---
|
 |
у меня такое было , вылечилось просто: 15.02.08 03:14
Автор: + <Mikhail> Статус: Elderman Отредактировано 15.02.08 03:16 Количество правок: 1
|
у меня такое было , вылечилось просто:
в регистре удали Bags Keys в
HKCU\Software\Classes\Local Settings\Software\Microsoft\Windows\Shell\
|
 |
вот решение, нашел в гугле сам не пробовал 14.02.08 17:29
Автор: Cyril <sc> Статус: Member
|
ссылка
|
 |
попробовать под пытками узнать после чего перестало работать... 14.02.08 17:03
Автор: jiZo <Александр> Статус: Member
|
из оствышихся идей не высказаными остаются только снос висты с последующей её перестановкой, снос висты с последующей установкой XP и, последнее, поставить SP1, мож все вернется на круги своя...
|
 |  |
Он бы и рад снести, да дитятко не позволяет, оно же ему и воткнуло висту -)) 15.02.08 13:57
Автор: HandleX <Александр М.> Статус: The Elderman
|
|
 |
Оопс, не ожидал такой бурной реакции ;-)) 13.02.08 17:26
Автор: HandleX <Александр М.> Статус: The Elderman
|
|
 |  |
может в опциях для инвалидов что-то накручено на тему шифта 13.02.08 17:34
Автор: dl <Dmitry Leonov>
|
|
 |  |  |
Мышой тоже не выделяется (синий полупрозрачный прямоугольник не создается при попытке выделения мышой). 13.02.08 22:06
Автор: HandleX <Александр М.> Статус: The Elderman
|
|
 |  |  |  |
Может поиграться настройками в свойствах папок? 14.02.08 13:14
Автор: Den <Denis> Статус: The Elderman
|
|
 |  |  |  |
тады ой, идей нет 14.02.08 01:53
Автор: dl <Dmitry Leonov>
|
|
|
|