Search Tools Links Login

Sound Card Information


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

Original Author: S.Adeel Hassan Rizvi

API Declarations

Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long
Private Const MAXPNAMELEN = 32
Private Type WAVEOUTCAPS
wMid As Integer
wPid As Integer
vDriverVersion As Long
szPname As String * MAXPNAMELEN
dwFormats As Long
wChannels As Integer
dwSupport As Long
End Type

Code

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 87 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.