在Windows資源瀏覽器中，可在DVD/CD光驅圖標上單擊鼠標右鍵，選擇"彈出"來打開光驅倉門，你可能也發現了，菜單中并沒有"關閉"命令來關閉光驅。下面，就讓我們用程序來控制打開、關閉光驅。
程序的主要工作部分為CD_OpenClose(BOOL bOpen, TCHAR cDrive)函數：
1 //cDrive是光驅盤符，或者0x01為默認驅動器。
2 //例如：
3 //CD_OpenCloseDrive(TRUE, 'G'); //打開光驅G:
4 //CD_OpenCloseDrive(FALSE, 'G'); //關閉光驅G:
5 //CD_OpenCloseDrive(TRUE, 1); //打開第一個邏輯光驅
6
7 void CD_OpenCloseDrive(BOOL bOpenDrive, TCHAR cDrive)
8 {
9 MCI_OPEN_PARMS op;
10 MCI_STATUS_PARMS st;
11 DWORD flags;
12
13 TCHAR szDriveName[4];
14 strcpy(szDriveName, "X:");
15
16 ::ZeroMemory(&op, sizeof(MCI_OPEN_PARMS));
17 op.lpstrDeviceType = (LPCSTR) MCI_DEVTYPE_CD_AUDIO;
18
19 if(cDrive > 1)
20 {
21 szDriveName[0] = cDrive;
22 op.lpstrElementName = szDriveName;
23 flags = MCI_OPEN_TYPE | MCI_OPEN_TYPE_ID | MCI_OPEN_ELEMENT| MCI_OPEN_SHAREABLE;
24 }
25 else flags = MCI_OPEN_TYPE | MCI_OPEN_TYPE_ID | MCI_OPEN_SHAREABLE;
26
27 if (!mciSendCommand(0,MCI_OPEN,flags,(unsigned long)&op))
28 {
29 st.dwItem = MCI_STATUS_READY;
30
31 if(bOpenDrive)
32 mciSendCommand(op.wDeviceID,MCI_SET,MCI_SET_DOOR_OPEN,0);
33 else
34 mciSendCommand(op.wDeviceID,MCI_SET,MCI_SET_DOOR_CLOSED,0);
35
36 mciSendCommand(op.wDeviceID,MCI_CLOSE,MCI_WAIT,0);
37 }
38 }
為了方便對多個光驅進行操作，添加了下面這個函數，其會調用上面的CD_OpenCloseDrive()函數：
1 void CD_OpenCloseAllDrives(BOOL bOpenDrives)
2 {
3 //判定所有光驅，并逐個打開或關閉。
4 int nPos = 0;
5 UINT nCount = 0;
6 TCHAR szDrive[4];
7 strcpy(szDrive, "?:");
8
9 DWORD dwDriveList = ::GetLogicalDrives ();
10
11 while (dwDriveList) {
12 if (dwDriveList & 1)
13 {
14 szDrive[0] = 0x41 + nPos;
15 if(::GetDriveType(szDrive) == DRIVE_CDROM)
16 CD_OpenCloseDrive(bOpenDrives, szDrive[0]);
17 }
18 dwDriveList >>= 1;
19 nPos++;
20 }
21 }
最后一點，別忘了在程序開頭包括Mmsystem.h頭文件，及在鏈接選項里寫上Winmm.lib。