Добавить пункт в меню "Отправить" для ВСЕХ пользователей (winxp)

Когда я использовал Windows, я настраивал меню SendTo, используя симпатичную маленькую программу под названием "Отправить в игрушки". Вы все еще можете скачать его здесь. Я не могу сказать вам, работает ли это для всех пользователей или нет; это вполне может сделать, хотя.

Папка SendTo определяется для каждого пользователя (обычно это C:\Documents and Settings\USER\SendTo). Это абсолютный путь, который находится в реестре, нет общей папки SendTo, которая применяется ко всем пользователям. Однако вы можете легко изменить местоположение папки SendTo, не путаясь в реестре.

Просто перетащите папку SendTo правой кнопкой мыши и выберите "Переместить в". Запись реестра будет обновлена ​​автоматически для этого пользователя. К сожалению, вы должны сделать это для каждого пользователя или загрузить куст реестра этого пользователя и отредактировать его вручную (снова для каждого пользователя).

Вероятно, было бы лучше обновить реестр одного пользователя (с помощью "Переместить в" или вручную), а затем экспортировать этот раздел реестра в файл. Затем раздайте этот файл пользователям и попросите их дважды щелкнуть по нему, добавив новое местоположение SendTo в свои соответствующие реестры.

Ключ находится в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders и мое местоположение по умолчанию было абсолютным путем, C:\Documents and Settings\Grant\SendTo

Содержимое файла what.reg, который можно распространять, будет выглядеть примерно так:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders]
"SendTo"="C:\\Documents and Settings\\Grant\\SendTo"

кроме как с новым местоположением файла.

Попробуйте эту функцию, она найдет папки SendTo для всех пользователей.

Private Function GetSendToPaths() As String()
    Dim localsendto As String = Environment.GetFolderPath(Environment.SpecialFolder.SendTo)
    Dim userpath As String = Environment.GetFolderPath(Environment.SpecialFolder.UserProfile)
    Dim subuser As String = Path.GetDirectoryName(userpath)
    Dim subsendto As String = localsendto.Substring(userpath.Length)
    Dim dirinfo As New DirectoryInfo(subuser)
    Dim paths As New List(Of String)
    For Each dir As DirectoryInfo In dirinfo.GetDirectories
        Dim path As String = dir.FullName & subsendto
        If Directory.Exists(path) Then
            Dim dirpath As String = dir.FullName & "\Contacts"
            If Directory.Exists(dirpath) Then
                If New DirectoryInfo(dirpath).GetFiles.Length > 0 Then
                    paths.Add(path)
                End If
            End If
        End If
    Next
    Return paths.ToArray
End Function

В соответствии с использованием папки "Отправить" в Windows 2000 или более поздней версии...

Если вы хотите сделать ярлыки доступными для всех пользователей, добавьте ярлыки в C:\Documents and Settings\All Users. Поскольку эта папка не существует по умолчанию в Windows 2000 или XP, вы можете либо скопировать существующую папку пользователя и переименовать ее в "Все пользователи", либо создать новую папку и ввести имя папки как SendTo.

Если вы не видите папку SendTo в проводнике Windows, вам может потребоваться включить возможность просмотра скрытой и системной папки, выполнив следующие действия:

• Откройте проводник Windows.
• Выберите Инструменты -> Параметры папки из меню.
• Нажмите на вкладку "Просмотр".
• В окне "Дополнительные настройки" есть опция "Скрытые файлы и папки".
• Выберите "Показать скрытые файлы и папки".
• Нажмите Применить, но не закрывайте диалоговую форму.
• Чтобы применить эти параметры ко всем папкам, нажмите "Применить ко всем папкам" в разделе "Представления папок" этого диалогового окна (вверху).
• Нажмите кнопку ОК, чтобы закрыть диалоговое окно.

Редактировать по комментариям: есть ли какие-либо из ваших пользовательских ярлыков SendTo? Возможно, вам не хватает записи в реестре или регистрации. Проверьте ярлыки в папке "Отправить", которые не отображаются в меню? Посмотрите, поможет ли это вообще.