|
로그인을 안했더니 이름 없이 답변이 올라가네요.
버그인가? 아니면 마음씨 좋은 관리자님의 배려?
힌트를 주셔서 감사하구요.
너무 거저 먹으려 해서 죄송 한데요.
혹시 테스트했던 자료가 남아 있으면 주실 수 없는지요?
님이 쓰신 글 :
: 헐....
: 그 어려운걸 저보고 하라니요....
: 나 이제 죽었다....
:
: 그래도 캄캄했는데 힌트라도 주시니 감사합니다.
:
: 지나다가 님이 쓰신 글 :
: : COM 오브젝트를 인젝션해서 분석해 보면 답이 나옴 ㅋ.
: :
: : 기본 사운드 장치 선택은 rundll32.exe 라는 호스트 프로세스에 의해서 로드 되는 mmsys.cpl 이라는
: : Control Panel Applet에 의해서 선택되게 되어있고,
: :
: : class GUID가 870af99c_171d_4f9e_af0d_e63df40c2bc9 인 COM 객체를 통해서,
: : GUID가 f8679f50_850a_41cf_9c72_430f290290c8 인 Interface 를 취하고 있음.
: :
: : MS사에서 이와 관련한 COM Interface에 대한 헤더파일을 제공하고 있지 않기 때문에 Interface 이름에 대해선 알수 없지만
: : 내부적으로 사용하는 이름이 SetDefaultEndpointDevice? 정도가 아닐까 하는 추론이 가능함.
: :
: : GUID가 f8679f50_850a_41cf_9c72_430f290290c8 인 COM Interface의 Virtual Method Table을 분석해 보면
: : 도합 12개의 Virtual Method를 정의해서 사용하고 있는 것을 알수 있는데,
: :
: : 이중 0 기준으로 10번째 인덱스로 정의 되어 있는 인터페이스 버추얼 메소드가 사운드 기본장치를 선택하는데 사용되고 있음
: :
: : IMMDeviceEnumerator 로 얻은 스트롱 네임의 Endpoint Device ID 중에 하나를 파라미터로 이 인터페이스에 Dummy 값 하나와
: : 같이 넘겨주면 제어판 경유 없이, 다이렉트로 프로그래밍 방법으로 강제적으로 원하는 기본 사운드 장치를 선택할 수 있음.
: :
: : 테스트 해보니까 Win7, Win8 다 먹힘 ㅋ
: :
: :
: :
: :
: :
: :
: :
: :
: : 하두고 님이 쓰신 글 :
: : : 그냥 제어판의 사운드창을 백그라운드에 띄워놓고
: : : 창에 나열된 사운드 장치 정보를 읽어서
: : : 선택한 후 [기본장치]버튼을 눌러주도록 해서 처리했습니다.
: : : 뭐 간단하게 해결되네요.
: : :
: : : 하지만 문제는 사운드 장치 이름만 읽어오고
: : : 장치 이름 아래 있는 설명을 읽어올 수 없어 사운드 장치가 모두 "스피커"라고 표시되서
: : : 도데체 어느 스피커가 어떤 사운드 장치의 스피커인지 알 수가 없네요.
: : :
: : : 리버스엔지니어링 님이 쓰신 글 :
: : : : 윈도우에서 디폴트 사운드 장치를 선택하는 방법은 제어판을 통한 방법 밖에 없습니다
: : : : MS에서 그런 API를 제공했다간 사운드카드 만드는 회사들이 경쟁적으로 자기들 카드를 디폴트 사운드장치로
: : : : 설정하려는 사태가 벌어지겠죠. 여러 사운드장치 중 하나로 웨이브 데이타가 출력되게 할수는 있어도 시스템 디폴트
: : : : 사운드장치를 선택해주는 API는 없습니다.
: : : :
: : : : 해결 방법은 비스타 이후 COM으로 바뀐 윈도우 오디오 아키텍쳐를 리버스엔지니어링으로 해킹하는 방법 밖에는 없습니다.
: : : : COM은 일반적인 API처럼 노출되는게 아니라 해킹하기도 쉽지 않습니다. 그럼에도 불구하고 정 필요하고 패이 조건이 맞으면
: : : : 리버스엔지니어링으로 해킹해 드릴 수는 있습니다
: : : :
: : : :
: : : :
: : : : 하두고 님이 쓰신 글 :
: : : : : 앞에서 했던 질문인데 시원한 답변이 없어 여기 저기 돌아다니며 찾은 소스코드입니다.
: : : : : 아래 소스코드는 피시에 장착된 사운드장치를 나열하는 소스코드인데요.
: : : : :
: : : : : 아래 소스에서 나열된 사운드장치를 선택하여 더블클릭하면
: : : : : 해당 사운드장치가 윈도우 기본 사운드장치로 바뀌게 하고 싶은데요.
: : : : :
: : : : : 기본 사운드 장치를 바꾸는 방법을 모르겠습니다.
: : : : :
: : : : : procedure TForm1.EnumAudioDevices;
: : : : : var
: : : : : dsCreateDevEnum : ICreateDevEnum;
: : : : : EnumDevice : IEnumMoniker;
: : : : : DeviceMoniker : IMoniker;
: : : : : Data : Integer;
: : : : : DevicePropBag : IPropertyBag;
: : : : : DeviceName : OLEVariant;
: : : : : begin
: : : : : If CoCreateInstance(CLSID_SystemDeviceEnum,nil,CLSCTX_INPROC_SERVER,IID_ICreateDevEnum,dsCreateDevEnum) = S_OK then
: : : : : Begin
: : : : : If dsCreateDevEnum.CreateClassEnumerator(CLSID_AudioRendererCategory,EnumDevice,0) = S_OK then
: : : : : Begin
: : : : : EnumDevice.Reset;
: : : : : While EnumDevice.Next(1,DeviceMoniker,@Data) = S_OK do
: : : : : Begin
: : : : : If DeviceMoniker.BindToStorage(nil,nil,IID_IPropertyBag,DevicePropBag) = NOERROR then
: : : : : Begin
: : : : : If DevicePropBag.Read('FriendlyName',DeviceName,nil) = NOERROR then
: : : : : IF Copy(DeviceName, 1, Length('DirectSound')) = 'DirectSound' Then
: : : : : ListBox1.Items.Add(Copy(DeviceName, Length('DirectSound: ') + 1, Length(DeviceName) - Length('DirectSound: ')));
: : : : : DevicePropBag := nil;
: : : : : End;
: : : : : DeviceMoniker := nil;
: : : : : End;
: : : : : EnumDevice := nil;
: : : : : End;
: : : : : dsCreateDevEnum := nil;
: : : : : End;
: : : : : End;
|
