Добавьте элемент в меню «отправить» всем пользователям (winxp)

Вот идея:

Поместите файл .bat в папку « Автозагрузка всех пользователей » (чтобы он запускался при каждом входе в систему).

Затем файл .bat скопирует ярлык в собственную папку SendTo.

Что-то вроде:

copy "c:\Notepad.lnk" "%userprofile%\SendTo" /Y 

(Замените Notepad.lnk своим собственным ярлыком)

Просто.

Когда я использовал окна, я бы настроил меню 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" 

Кроме нового местоположения файла.

В соответствии с использованием папки «Отправить» в Windows 2000 или выше …

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

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

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

Редактировать в комментариях: появляются ли какие-либо ваши пользовательские ярлыки 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