ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月23日(木) 10:34

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
 記事の件名: 音声再生機器の検出
投稿記事Posted: 2016年12月19日(月) 22:58 
オフライン

登録日時: 2016年9月24日(土) 15:35
記事: 62
コード:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String,_
                       ByVal lpSectorsPerCluster As String, ByVal uReturnLength As Long,_
                       ByVal hwndCallback As Long) As Long


Dim Com As String
Dim Back As String
Dim unkown As Long
Dim Ret As Long

Back=String$(255,Chr$(0))
Com="set cdaudio door open"     'もしくは "set cdaudio door Closed"

Ret=mciSendString(Com,Back,255,unkown)              '・・・・mciSendString(①,②,③,④)
If Ret=0 Then
MessageBox(0,"開けたよ","mciSendString",MB_OK)
Else
MessageBox(0,"失敗!","mciSendString",MB_OK)
EndIf

End
これを応用して音声再生機器の名前を検出することはできますか?


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke