#294 CD-ROMドライブのトレイを開閉する方法 VBA、API

WindowsAPIを使ってCD-ROMドライブのトレイを開閉します。

まず、標準モジュールに次のようなAPIの宣言を記述します。
Public Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _
                                                    ByVal lpstrReturnString As Any, _
                                                    ByVal uReturnLength As Long, _
                                                    ByVal hwndCallback As Long)

あとはコーディングは非常に簡単です。開く場合と閉じる場合で、それぞれ次のようなコードを実行します。
'開く
mciSendStringA "Set CDAudio Door Open", 0&, 0, 0

'閉じる
mciSendStringA "Set CDAudio Door Closed", 0&, 0, 0
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved