web-dev-qa-db-ja.com

すべてのユーザーの「送信先」メニューに項目を追加します（winxp）

すべてのユーザーの[送信先]メニューに項目を追加する方法（winxp）構築しているサーバー上のすべてのユーザーが利用できるデバッグログビューアーへのリンクが必要です。 1人のユーザーに追加するのは非常に簡単ですが（start-> run-> sendto）、すべてのユーザーに追加したいと思います。何かアイデアはありますか？

windows-xpcontext-menusend-to
5
Chris

ここにアイデアがあります：

All Users Startupフォルダーに.batファイルを配置します（誰かがログオンするたびに実行されるようにします）。

.batファイルは、ショートカットをユーザー自身のSendToフォルダーにコピーします。

何かのようなもの：

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

（Notepad.lnkを独自のショートカットに置き換えます）

シンプル。

2
Qwerty

SendToフォルダーは、ユーザーごとに決定されます（通常、C：\ Documents and Settings\USER\SendToにあります）。これはレジストリにある絶対パスであり、すべてのユーザーに適用される共通のSendToフォルダーはありません。ただし、レジストリを混乱させることなく、SendToフォルダの場所を簡単に変更できます。

SendToフォルダを右クリックして新しい場所にドラッグし、「移動先」を選択するだけです。レジストリエントリは、そのユーザーに対して自動的に更新されます。残念ながら、これはユーザーごとに行うか、そのユーザーのレジストリHiveをロードして手動で編集する必要があります（これもユーザーごとに）。

1人のユーザーのレジストリを更新して（「移動先」を使用するか手動で）、そのレジストリキーをファイルにエクスポートするのがおそらく最善でしょう。次に、そのファイルをユーザーに配布し、ユーザーが自分でダブルクリックして、新しいSendToの場所をそれぞれのレジストリにマージします。

キーはHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Foldersにあり、デフォルトの場所は絶対パスC:\Documents and Settings\Grant\SendToでした。

配布できるwhatever.regファイルの内容は次のようになります。

Windows Registry Editor Version 5.00

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

新しいファイルの場所を除いて。

1
Grant

以前はWindowsを使用していましたが、「SendToToys」という素敵な小さなプログラムを使用してSendToメニューをカスタマイズしていました。あなたはまだそれをダウンロードすることができます ここ 。すべてのユーザーに機能するかどうかはわかりません。それでもうまくいくかもしれません。

1
nedned

この機能を試してみてください。すべてのユーザーの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
0
MadsHaupt

Windows 2000以降で「送信先」フォルダを使用 ..によると.

すべてのユーザーがショートカットを使用できるようにする場合は、C：\ Documents and Settings\AllUsersにショートカットを追加します。このフォルダはWindows2000またはXPにはデフォルトで存在しないため、既存のユーザーのフォルダをコピーして「すべてのユーザー」に名前を変更するか、新しいフォルダを作成してフォルダ名をSendToとして入力できます。

WindowsエクスプローラーでSendToフォルダーが表示されない場合は、次の手順を実行して、非表示フォルダーとシステムフォルダーを表示する機能をオンにする必要があります。

  • Windowsエクスプローラーを開きます。
  • メニューから[ツール]-> [フォルダオプション]を選択します。
  • 「表示」タブをクリックします。
  • 「詳細設定」ウィンドウには、「隠しファイルと隠しフォルダ」のオプションがあります。
  • 「隠しファイルと隠しフォルダを表示する」を選択します。
  • [適用]をクリックしますが、ダイアログフォームは閉じないでください。
  • これらの設定をすべてのフォルダに適用するには、このダイアログの[フォルダビュー]セクション（上部）にある[すべてのフォルダに適用]をクリックします。
  • [OK]をクリックしてダイアログボックスを終了します。

コメントごとに編集：カスタムSendToショートカットのいずれかが表示されますか？レジストリエントリまたは登録が欠落している可能性があります。チェックアウト 「送信先」フォルダのショートカットがメニューに表示されませんか？ 、それがまったく役立つかどうかを確認してください。

0
JP Alioto