C# と VB.NET の質問掲示板

■No53728 (めめ さん) に返信
> 解決できるかと思ったのですがInvokeMemberのやり方が難しく困っています。
> Windowsプロパティで返却されるのはIShellWindows型？らしく、objectでよいのかも不明です。
C# なら、object の代わりに dynamic を使うのが簡単かと思います。.NET Framework 4 が必要ですけれども。


using System;
class Sample {
  static void Main() {
    dynamic shellWindows = Activator.CreateInstance(Type.GetTypeFromCLSID(
      new Guid("{9BA05972-F6A8-11CF-A442-00A0C90A8F39}")));
    foreach(dynamic obj in shellWindows) {
      Console.WriteLine("0x{0:X8} - {1}", obj.HWND, obj.FullName);
      Console.WriteLine("\t{" + obj.LocationName + "}");
      Console.WriteLine("\t{0}", obj.LocationURL);
    }
  }
}

(注意点) http://support.microsoft.com/kb/940998/ja


> // エラーになる            
> object windows = type.GetType().InvokeMember("Windows", System.Reflection.BindingFlags.GetProperty, null, shell, null);
Windows プロパティではなく、Windows メソッドですよ。
http://msdn.microsoft.com/en-us/library/bb774107.aspx

> 配列のプロパティ的にはLocationName,FullName, LocationURL, Name, Path辺りだというのは分かったのですが、
配列というか、ShellWindows コレクションですね。個々の要素は InternetExplorer オブジェクトです。
http://msdn.microsoft.com/en-us/library/bb773974.aspx

■No53732 (魔界の仮面弁士) に追記
>     foreach(dynamic obj in shellWindows) {
>       Console.WriteLine("0x{0:X8} - {1}", obj.HWND, obj.FullName);
>       Console.WriteLine("\t{" + obj.LocationName + "}");
>       Console.WriteLine("\t{0}", obj.LocationURL);
>     }
上記では、Internet Explorer と Windows エクスプローラーの両方を列挙しています。

フォルダを表示している物に限定したい場合は、FullName プロパティで判定する方法と、
Document プロパティの型で判定する方法とがあります。適宜使い分けてください。

FullName で判定した場合、Win2000 + IE5.5 などの古い環境では、
　「エクスプローラー(explorer.exe)で Web ページを開いていた場合」
　「IE(iexplore.exe) でローカルフォルダを開いていた場合」
などを判定できないため、フォルダ以外も列挙されてしまうという問題があります。

一方、Document プロパティの型から判定した場合は、これらも判定できますが、
読み込み中などのタイミングでは 稀に Document プロパティの取得に
失敗することがある点に注意が必要です。


なお、最近の環境(IE7以降?)では前者の取り違いが起こらないため、実行環境を
限定できる場合には、FullName だけでも問題無いと思います。

dynamic 使えない場合はこんな感じ。

using System;
using System.Reflection;
using System.Runtime.InteropServices;

namespace ConsoleApplication1
{
  class Program
  {
    static void Main(string[] args)
    {
      const string ExplorerFullPath = @"%WINDIR%\explorer.exe";
      string explorerExpandedPath 
        = Environment.ExpandEnvironmentVariables(ExplorerFullPath);

      Type shellType = Type.GetTypeFromProgID("Shell.Application");
      object shell = null;  // Shell32.Shell
      try
      {
        shell = Activator.CreateInstance(shellType);
        object windows = null;  // SHDocVw.IShellWindows
        try
        {
          windows
            = shellType.InvokeMember(
                  "Windows"
                , BindingFlags.InvokeMethod | BindingFlags.Instance | BindingFlags.Public
                , null
                , shell
                , null);
          Type windowsType = windows.GetType();
          int windowCounts
            = (int)windowsType.InvokeMember(
                  "Count"
                , BindingFlags.GetProperty | BindingFlags.Instance | BindingFlags.Public
                , null
                , windows
                , null);
          object window = null; // SHDocVw.IWebBrowser2
          for (int i = 0; i < windowCounts; ++i)
          {
            try
            {
              window
                = windowsType.InvokeMember(
                      "Item"
                    , BindingFlags.InvokeMethod | BindingFlags.Instance | BindingFlags.Public
                    , null
                    , windows
                    , new object[] { i });
              Type windowType = window.GetType();
              string processFullPath
                = (string)windowType.InvokeMember(
                      "FullName"
                    , BindingFlags.GetProperty | BindingFlags.Instance | BindingFlags.Public
                    , null
                    , window
                    , null);
              if (explorerExpandedPath.Equals(
                processFullPath, StringComparison.InvariantCultureIgnoreCase))
              {
                string currentDirectory
                  = (string)windowType.InvokeMember(
                        "LocationUrl"
                      , BindingFlags.GetProperty | BindingFlags.Instance | BindingFlags.Public
                      , null
                      , window
                      , null);
                Console.WriteLine(Uri.UnescapeDataString(currentDirectory));
              }
            }
            finally
            {
              if (window != null) { Marshal.ReleaseComObject(window); }
            }
          }
        }
        finally
        {
          if (windows != null) { Marshal.ReleaseComObject(windows); }
        }
      }
      finally
      {
        if (shell != null) { Marshal.ReleaseComObject(shell); }
      }
    }
  }
}

型名 comments 付与。

■No53737 (めめ さん) に返信
> path = path.Replace("%20", " "); // white spaceの置換
> 以上で解決させることにしました。

処理しなければならない文字は、それだけではありませんよ。
(たとえば、パスに "%" や "&" が含まれる場合など)

> if (likeLocal.IsMatch(folderPath) == true) path = folderPath.Substring(@"file:///".Length); // ローカル
> else if (likeServer.IsMatch(folderPath) == true) path = folderPath.Substring(@"file:".Length); // サーバー
System.Uri.LocalPath を使った方が便利かと。

Uri location = new Uri(locationURL);
if (location.IsFile)
{
　// Console.WriteLine(location.IsUnc);
　path = location.LocalPath;
}