Maza Faka
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору ssgdvlpr Цитата: Да скрипт переписывает это значение, а когда выбираешь мои документы в проводнике, попадаешь по старому распаложению | Хм... попробуй так: Код: _MoveMyDocs("d:\MyDocs") Func _MoveMyDocs($sPath) If Not FileExists($sPath) Then If DirCreate($sPath) = 0 Then Return SetError(1, 0, 0) EndIf FileMove(@MyDocumentsDir & "\*.*", $sPath) RegWrite("HLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DocFolderPaths", @UserName, "REG_SZ", $sPath) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Personal", "REG_SZ", $sPath) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "My Pictures", "REG_SZ", $sPath & "\My Pictures") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "My Music", "REG_SZ", $sPath & "\My Music") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "Personal", "REG_SZ", $sPath) RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "My Pictures", "REG_SZ", $sPath & "\My Pictures") RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", "My Music", "REG_SZ", $sPath & "\My Music") Return 1 EndFunc | В примере я не добавил проверку на успешность записи информации в реестр, при необходимости добавишь сам И не забудь перезагрузить компьютер, для того, что бы изменения вступили в силу. |