사운드카드 유무 알아내기
PC 에 사운드카드가 있나 없나를 체크할수 있는 API Function 입니다. 게임 프로그램을
만들때 사용될수 있겠죠. 사운드카드의 존재를 체크해서 당신의 PC 엔 사운드카드가 없
습니다. 없을 경우는 사운드 플레이를 하지 않아야겠죠.
1. 모듈에 다음과 같은 API Function을 선언합니다
Public Declare Function auxGetNumDevs Lib "winmm.dll" () As Long
2. 폼에 하나의 Command Button 을 추가하여 다음과 같이 코딩을 하세요
Private Sub Command1_Click()
Dim i As Integer
i = auxGetNumDevs()
' 사운드카드가 존재하면 auxGetNumDevs API Function 은 True 를 리턴합니다.
' 없을 경우 0 을 리턴
If i <> 0 Then
MsgBox "내컴퓨터엔 사운드카드가 있당"
Else
MsgBox "뜨아 내컴퓨터엔 사운드카드가 없당"
End If
End Sub
3. 실행을 한후 버튼을 클릭해보면 사운드카드가 있는지 없는지 메세지를 보여줍니다
김환욱 2003-03-17 AM 10:32:32
제가 그거 옛날에 해봤는데요..
VXD 드라이버를 사용하면 사운드카드가 있다고 나오지만 WDM드라이버를 사용하면 사운드카드가 없다고 나와요... WDM드라이버는 여러모로 짜증나는 드라이버입니다.. 윈2000과XP에서 VXD드라이버를 지원하지 않는관계로 전 그냥 윈미 씁니다..
지상현 2003-03-17 PM 6:11:53
저 함수로 뭘더 바라세요...
그리고 역시 개발할때는 Windows 2000이 최강(..)