DSPack 내에 있는 샘플프로그램중 VideoCap 을 컴파일 해보니

전역으로  var  CapEnum: TSysDevEnum; 선언하고

초기에 FomCreate 안에서

  CapEnum := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);

하고나서

  for i := 0 to CapEnum.CountFilters - 1 do
    VideoCapFilters.Items.Add(CapEnum.Filters[i].FriendlyName);

를 하는데

CapEnum.CountFilters 의 값이 0가 나와
CapEnum.Filters[i].FriendlyName 가 안되네요..

하지만 바로 밑에 있는

  CapEnum.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  for i := 0 to CapEnum.CountFilters - 1 do
    AudioCapFilters.Items.Add(CapEnum.Filters[i].FriendlyName);

는 성공정으로 수행이 됩니다.

기본 제공 샘플소스를 바꾸어야 하나요?
아님,  다른곳에 뭐가 있나요?

Delphi 6 쓰고 있고,  DirectX는 2007. 11 월 버젼입니다.