C#でwindowのiconサイズを変えたい

Question

こんにちは。
Buttonを押したときに特定のExprolerのwindowのiconの表示サイズを変更したいです。

アイコンを小さくするコマンドメッセージは0x702aだということなので、エクスプローラのウィンドウに WM_COMMAND, 0x702A, 0をPostMessageしてみました。

前半でactivewindowにし、そのhWndはとれているようです。
ウィンドウがactiveになるので。

しかし、PostMessageがうまくいかないです。

併せて、アイコンを最大化するコマンドメッセージとか、メッセージ一覧もいただけたら嬉しいです。

Windows10, Visual Studio 2013 communityです。

        private const int WM_COMMAND = 0x0111;
        [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
        public static extern IntPtr FindWindow(
        string lpClassName, string lpWindowName);

        [DllImport("user32.dll", SetLastError = true)]
        public static extern int GetWindowThreadProcessId(
        IntPtr hWnd, out int lpdwProcessId);

        private const Int32 WM_USER = 0x400;

        private const Int32 WM_IPC_MESSAGE = WM_USER + 1;
        [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
        private static extern bool PostMessage(IntPtr hWnd, uint Msg, IntPtr wParam, IntPtr lParam);

        private void Button_Click(object sender, RoutedEventArgs e){
            IntPtr hWnd = activeWindow("titleOfWindow");
            PostMessage(hWnd, WM_COMMAND, new IntPtr(0x702A), IntPtr.Zero);
        }

        //以下の参照を追加
        //・com/Microsoft Shell Controls And Automation
        //・com/Microsoft Internet Control
        //web.LocationNameがエクスプローラが選択しているフォルダ
        //web.LocationURLがするフルパス
        //※コード中ではLocationNameのみ使用しています

        [DllImport("user32.dll")]
        private static extern bool SetForegroundWindow(IntPtr hWnd);

        public IntPtr activeWindow(string foldername)        {
            IntPtr hWnd = (IntPtr)0;
            Shell shell = new Shell();
            ShellWindows win = shell.Windows();

            foreach (IWebBrowser2 web in win)            {
                if (Path.GetFileName(web.FullName).ToUpper() == "EXPLORER.EXE")                {
                    // この部分をアクティブにしたいエクスプローラのタイトル(選択フォルダ)に変更してください
                    if (web.LocationName == foldername)                    {
                        // 指定のエクスプローラをアクティブにする
                        hWnd = (IntPtr)web.HWND;
                        SetForegroundWindow(hWnd);
                        break;
                    }
                }
            }
            return hWnd;
        }

    }

Answer 1

using System;
using System.Runtime.InteropServices;

public static class ConsoleHelper
{
private const int FixedWidthTrueType = 54;
private const int StandardOutputHandle = -11;

[DllImport("kernel32.dll", SetLastError = true)]
internal static extern IntPtr GetStdHandle(int nStdHandle);

[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
internal static extern bool SetCurrentConsoleFontEx(IntPtr hConsoleOutput, bool MaximumWindow, ref FontInfo ConsoleCurrentFontEx);

[return: MarshalAs(UnmanagedType.Bool)]
[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
internal static extern bool GetCurrentConsoleFontEx(IntPtr hConsoleOutput, bool MaximumWindow, ref FontInfo ConsoleCurrentFontEx);


private static readonly IntPtr ConsoleOutputHandle = GetStdHandle(StandardOutputHandle);

[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
public struct FontInfo
{
    internal int cbSize;
    internal int FontIndex;
    internal short FontWidth;
    public short FontSize;
    public int FontFamily;
    public int FontWeight;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]
    //[MarshalAs(UnmanagedType.ByValArray, ArraySubType = UnmanagedType.wc, SizeConst = 32)]
    public string FontName;
}

public static FontInfo[] SetCurrentFont(string font, short fontSize = 0)
{
    Console.WriteLine("Set Current Font: " + font);

    FontInfo before = new FontInfo
    {
        cbSize = Marshal.SizeOf<FontInfo>()
    };

    if (GetCurrentConsoleFontEx(ConsoleOutputHandle, false, ref before))
    {

        FontInfo set = new FontInfo
        {
            cbSize = Marshal.SizeOf<FontInfo>(),
            FontIndex = 0,
            FontFamily = FixedWidthTrueType,
            FontName = font,
            FontWeight = 400,
            FontSize = fontSize > 0 ? fontSize : before.FontSize
        };

        // Get some settings from current font.
        if (!SetCurrentConsoleFontEx(ConsoleOutputHandle, false, ref set))
        {
            var ex = Marshal.GetLastWin32Error();
            Console.WriteLine("Set error " + ex);
            throw new System.ComponentModel.Win32Exception(ex);
        }

        FontInfo after = new FontInfo
        {
            cbSize = Marshal.SizeOf<FontInfo>()
        };
        GetCurrentConsoleFontEx(ConsoleOutputHandle, false, ref after);

        return new[] { before, set, after };
    }
    else
    {
        var er = Marshal.GetLastWin32Error();
        Console.WriteLine("Get error " + er);
        throw new System.ComponentModel.Win32Exception(er);
    }
}

}
Hope this will help you and you can check here(http://blogs.microsoft.co.il/blogs/pavely/archive/2009/07/23/changing-console-fonts.aspx)

Answer 2

COMの操作はあまり詳しくないので別の方法で恐縮ですが。

取得したIWebBrowserのDocumentに対して操作することで
今回やりたいことは実現可能です。

private enum FolderViewMode
{
    ICON = 1,
    LIST = 3,
    DETAILS = 4,
    TILE = 6,
    CONTENTS = 8
}

private void Button_Click(object sender, RoutedEventArgs e)
{
    SetFolderViewMode("titleOfWindow", FolderViewMode.ICON);
}

private void SetFolderViewMode(string foldername, FolderViewMode mode)
{
    Shell shell = new Shell();
    ShellWindows win = shell.Windows();

    foreach (IWebBrowser2 web in win)
    {
        if (Path.GetFileName(web.FullName).ToUpper() == "EXPLORER.EXE")
        {
            if (web.LocationName == foldername)
            {
                ShellFolderView view = web.Document;
                view.CurrentViewMode = (uint)mode;
                break;
            }
        }
    }
}

その他、
アイコンサイズはShellFolderView.IconSize
表示オプションはShellFolderView.ViewOptions
等で指定可能です。

---

追記

ViewOptionプロパティは読み取り専用でした。すみません。

今回は、アイコンの大きさを任意のサイズにしたいとのことですので、
ShellFolderView.IconSizeに値を設定してあげればよいです。
なお、IconSizeプロパティには、16～256までの整数値が設定可能です。

エクスプローラの「表示方法の変更」で指定できるアイコンサイズのそれぞれの規定値は、
特大：256
大　：96
中　：48
小　：16
です。

Comments

[picko]

ありがとうございます。iconやlistにできることを確認しました。
任意のサイズにしたいので、ShellFolderView.IconSizeとViewOptionsの使い方をもう少し詳しく補足していただけたら嬉しいです。