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

■No38846 (Axolotl さん) に返信
> DVD/CDドライバの開閉を行うには
ドライバ(Driver)ではなく
ドライブ(Drive)ですよね。

> どうすればよいのでしょうか?
幾つかの方法がありますが、たとえばこんなのとか。
(VB であれば、もっとスッキリ書けるのだけれども…)

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

class Program
{
    static void Main(string[] args)
    {
        BindingFlags bfGetPropery = BindingFlags.Public | BindingFlags.Instance | BindingFlags.GetProperty;
        BindingFlags bfMethod = BindingFlags.Public | BindingFlags.Instance | BindingFlags.InvokeMethod;
        Type t = Type.GetTypeFromProgID("WMPlayer.OCX");
        object wmp = Activator.CreateInstance(t);
        object drives = t.InvokeMember("cdromCollection", bfGetPropery, null, wmp, null);
        int cnt = (int)t.InvokeMember("Count", bfGetPropery, null, drives, null);
        for (int i = 0; i < cnt; i++)
        {
            object drive = t.InvokeMember("Item", bfMethod, null, drives, new object[] { i });
            string driveLetter = (string)t.InvokeMember("driveSpecifier", bfGetPropery, null, drive, null);
            Console.WriteLine(driveLetter + "を開閉します。");
            t.InvokeMember("eject", bfMethod, null, drive, null);
            Marshal.ReleaseComObject(drive);
        }
        Marshal.ReleaseComObject(drives);
        Marshal.ReleaseComObject(wmp);
    }
}

■No38848 (魔界の仮面弁士) に追記
>>どうすればよいのでしょうか?
> 幾つかの方法がありますが、たとえばこんなのとか。

第2案。

using System;
using System.IO;
using System.Runtime.InteropServices;
using System.Text;

class Program
{
    [DllImport("winmm", CharSet = CharSet.Auto)]
    private static extern int mciSendString(
        string command, StringBuilder buffer,
        int bufferSize, IntPtr hwndCallback);

    static void Main()
    {
        foreach (string drive in Environment.GetLogicalDrives())
        {
            DriveInfo di = new DriveInfo(drive);
            if (di.DriveType == DriveType.CDRom)
            {
                mciSendString("open " + drive + " type cdaudio alias orator", null, 0, IntPtr.Zero);
                int canEject = mciSendString("capability orator can eject", null, 0, IntPtr.Zero);
                Console.WriteLine("{0}はイジェクト{1}です。", drive, (canEject == 0) ? "可能" : "不可");
                Console.WriteLine("ドアを開きます。");
                mciSendString("set orator door open", null, 0, IntPtr.Zero);
                Console.WriteLine("ドアを締めます。");
                mciSendString("set orator door closed", null, 0, IntPtr.Zero);
                mciSendString("close orator", null, 0, IntPtr.Zero);
            }
        }
    }
}