易语言如何判断系统音量是否静音？

建议你这样试试看：

添加"多媒体支持库3.0 "

程序窗口添加"系统音量或如"组件

请点击输入图片描述

程序调试如下：

.版本 2

.支持库 spec

.支持库 eMMedia

.局部变量 LV, 整数型

.局部变量 RV, 整数型

' 系统音量1.取音量 (LV, RV)

调试输出 (系统音量1.打开 (#音量类型.主音量)) '关键悉衡, *** 作哪个设备

系统音量1.取音量 (LV, RV)

调试输出 (LV, RV)

调试输出 (“静音 *** 作前”, 系统音量1.取静音 ())

调试输出 (系统音量1.置静音 (真)) '设置静音

调试输出 (“静音 *** 作后”, 系统音量1.取静音 ())

调试输出 (系统音量1.置静睁团做音 (假)) '取消静音

调试输出 (“静音 *** 作后”, 系统音量1.取静音 ())

使用菜单数组

在文件菜单里增加一个菜单项,标题任意,现在假设菜单项的Name属性是mnuDynamic 

更改菜单项mnuDynamic的可见属性,使mnuDynamic.Visible= 皮扒False 

更改菜单项mnuDynamic的下标(索引)属性,使mnuDynamic.Index=0 

在程序中控制菜单项mnuDynamic的动态装入。

Load mnuDynamic(1)

mnuDynamic(1).Caption = "动态菜单1"

mnuDynamic(1).Visible = True

使用用API函数

新建一袜数个模块，复制以下代码。

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Const MF_STRING = &H0&

Public Const MF_BYCOMMAND = &H0&

Public 燃好昌Const GWL_WNDPROC = (-4)

Public Const WM_COMMAND = &H111

Public OldWinProc As Long

Public Function OnMenu(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

'{响应菜单事件}

If wMsg = WM_COMMAND Then

If wParam = 1000 Then MsgBox "Dynamic"

End If

OnMenu = CallWindowProc(OldWinProc, hwnd, wMsg, wParam, lParam)

End Function

窗体代码：

Private Sub Form_Load()

Dim hMenu As Long, hSubMenu As Long

hMenu = GetMenu(Me.hwnd)

hSubMenu = GetSubMenu(hMenu, 0)

InsertMenu hSubMenu, 0, MF_BYCOMMAND Or MF_STRING, 1000, "Dynamic"

OldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf OnMenu)

End Sub

需要一个团正渗系统塌脊音量组件代码如下.版本 2

.支清塌持库 eMMedia

.支持库 spec系统音量1.打开 (4)

系统音量1.置静音 (真)

延迟 (3 × 1000)

系统音量1.置静音 (假)

---