자문 자답을 하게 되는군뇨.

지푸라기를 잡았네요.

오디오와 비디오 드라이버를 체크하는 예제함수입니다.


procedure GetAudioDevice;

var

   iNum,i : integer;

   waveCaps : TWAVEINCAPS;

FAudioSourceList : tstringlist;

Begin

FAudioSourceList := tstringlist.create;

   iNum := waveInGetNumDevs;

   for i := 0 to iNum-1 do begin

      if waveInGetDevCaps(i,@waveCaps,sizeof(TWAVEINCAPS)) = 0 then

         FAudioSourceList.Add(waveCaps.szPname);

   end;

FAudioSourceList.free;

end;



procedure GetVideoDevices;

var

DeviceName:array [0..79] of char;

DeviceVersion:array [0..79] of char;

q:integer;

fDrivers : Tstringlist;

begin

fdrivers := tstringlist.create;

for q:=0 to 9 do

if capGetDriverDescriptionA(q,DeviceName,80,DeviceVersion,80) then

fDrivers.Add(string(DeviceName)+' '+string(DeviceVersion));

fdrivers.free;

end;


그런데 이제는,  저렇게 해서 얻은 오디오 비디오 드라이버를

어떻게 사용하느냐의 문제가 남았네요.

혹시 아시는분 방향만이라도 제시해 주심 고맙겠네요.

ㅠ_ㅠ, 실력이 없으니 안타깝기만 하군뇨.


=======================================================