Advertisement
7_2009-2012 Coding Standards #232669

Sound Card Information

This Code Show Your Sound Card information if you like my code please vote

AI

Resumo por IA: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Código fonte
original-source
Private Sub Command1_Click()
Dim x As WAVEOUTCAPS
waveOutGetDevCaps 0, x, Len(x)
Label1.Caption = "Sound Card - " & x.szPname
Label2.Caption = "Sound Formats - " & x.dwFormats
Label3.Caption = "Sound Support - " & x.dwSupport
Label4.Caption = "Sound DriverVersion - " & x.vDriverVersion
Label5.Caption = "Sound Channels - " & x.wChannels
Label6.Caption = "Sound Mid - " & x.wMid
Label7.Caption = "Sound Pid - " & x.wPid
End Sub
Comentários originais (3)
Recuperado do Wayback Machine